diff options
author | Ralf S. Engelschall <rse@openssl.org> | 1998-12-21 11:52:47 +0100 |
---|---|---|
committer | Ralf S. Engelschall <rse@openssl.org> | 1998-12-21 11:52:47 +0100 |
commit | d02b48c63a58ea4367a0e905979f140b7d090f86 (patch) | |
tree | 504f62ed3d84799f785b9cd9fab255a21b0e1b0e /ms/cmp.pl | |
download | openssl-d02b48c63a58ea4367a0e905979f140b7d090f86.tar.xz openssl-d02b48c63a58ea4367a0e905979f140b7d090f86.zip |
Import of old SSLeay release: SSLeay 0.8.1b
Diffstat (limited to 'ms/cmp.pl')
-rw-r--r-- | ms/cmp.pl | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/ms/cmp.pl b/ms/cmp.pl new file mode 100644 index 0000000000..95b257fe4c --- /dev/null +++ b/ms/cmp.pl @@ -0,0 +1,47 @@ +#!/usr/local/bin/perl + +($#ARGV == 1) || die "usage: cmp.pl <file1> <file2>\n"; + +open(IN0,"<$ARGV[0]") || die "unable to open $ARGV[0]\n"; +open(IN1,"<$ARGV[1]") || die "unable to open $ARGV[1]\n"; +binmode IN0; +binmode IN1; + +$tot=0; +$ret=1; +for (;;) + { + $n1=sysread(IN0,$b1,4096); + $n2=sysread(IN1,$b2,4096); + + last if ($n1 != $n2); + last if ($b1 ne $b2); + last if ($n1 < 0); + if ($n1 == 0) + { + $ret=0; + last; + } + $tot+=$n1; + } + +close(IN0); +close(IN1); +if ($ret) + { + printf STDERR "$ARGV[0] and $ARGV[1] are different\n"; + @a1=unpack("C*",$b1); + @a2=unpack("C*",$b2); + for ($i=0; $i<=$#a1; $i++) + { + if ($a1[$i] ne $a2[$i]) + { + printf "%02X %02X <<\n",$a1[$i],$a2[$i]; + last; + } + } + $nm=$tot+$n1; + $tot+=$i+1; + printf STDERR "diff at char $tot of $nm\n"; + } +exit($ret); |