Fix the SSL_set1_sigalgs() macro

[openssl.git] / ms / cmp.pl

diff --git a/ms/cmp.pl b/ms/cmp.pl
old mode 100644 (file)
new mode 100755 (executable)
index 95b257f..265ce56
--- a/ms/cmp.pl
+++ b/ms/cmp.pl
@@ -1,4 +1,10 @@
-#!/usr/local/bin/perl
+#! /usr/bin/env perl
+# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html

 
 ($#ARGV == 1) || die "usage: cmp.pl <file1> <file2>\n";
 
 
 ($#ARGV == 1) || die "usage: cmp.pl <file1> <file2>\n";
 


@@ -10,38 +16,38 @@ binmode IN1;
 $tot=0;
 $ret=1;
 for (;;)
 $tot=0;
 $ret=1;
 for (;;)

-       {
-       $n1=sysread(IN0,$b1,4096);
-       $n2=sysread(IN1,$b2,4096);
+{
+    $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;
-       }
+    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)
 
 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";
-       }
+{
+    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);
 exit($ret);