Make arm-xlate.pl set use strict.
[openssl.git] / crypto / perlasm / arm-xlate.pl
index c00f54a..ca2f8b9 100755 (executable)
@@ -6,6 +6,8 @@
 # in the file LICENSE in the source distribution or at
 # https://www.openssl.org/source/license.html
 
 # in the file LICENSE in the source distribution or at
 # https://www.openssl.org/source/license.html
 
+use strict;
+
 my $flavour = shift;
 my $output = shift;
 open STDOUT,">$output" || die "can't open $output: $!";
 my $flavour = shift;
 my $output = shift;
 open STDOUT,">$output" || die "can't open $output: $!";
@@ -126,7 +128,7 @@ sub expand_line {
     return $line;
 }
 
     return $line;
 }
 
-while($line=<>) {
+while(my $line=<>) {
 
     if ($line =~ m/^\s*(#|@|\/\/)/)    { print $line; next; }
 
 
     if ($line =~ m/^\s*(#|@|\/\/)/)    { print $line; next; }