mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-27 05:21:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Make arm-xlate.pl set use strict.

Browse Source 
It was already nearly clean. Just one undeclared variable.

Reviewed-by: Andy Polyakov <appro@openssl.org>
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/1240)
This commit is contained in:
David Benjamin 2016-06-20 15:05:06 -04:00 committed by Rich Salz
parent aa951ef3d7
commit abeae4d325
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/perlasm/arm-xlate.pl
View File

@ -6,6 +6,8 @@
# in the file LICENSE in the source distribution or at # in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html # https://www.openssl.org/source/license.html
use strict;
my $flavour = shift; my $flavour = shift;
my $output = shift; my $output = shift;
open STDOUT,">$output" || die "can't open $output: $!"; 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; }