diff options
author | David Benjamin <davidben@google.com> | 2016-06-20 15:05:06 -0400 |
---|---|---|
committer | Rich Salz <rsalz@openssl.org> | 2016-06-20 16:26:15 -0400 |
commit | abeae4d3251181f1cedd15e4433e79406b766155 (patch) | |
tree | 312d8d49342b7b6730fefbd49ddcbc5c13a4f53b /crypto/perlasm/arm-xlate.pl | |
parent | aa951ef3d745aa0c32b984fd9be2cc21382b97f6 (diff) |
Make arm-xlate.pl set use strict.
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)
Diffstat (limited to 'crypto/perlasm/arm-xlate.pl')
-rwxr-xr-x | crypto/perlasm/arm-xlate.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/crypto/perlasm/arm-xlate.pl b/crypto/perlasm/arm-xlate.pl index c00f54af1b..ca2f8b990b 100755 --- a/crypto/perlasm/arm-xlate.pl +++ b/crypto/perlasm/arm-xlate.pl @@ -6,6 +6,8 @@ # 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: $!"; @@ -126,7 +128,7 @@ sub expand_line { return $line; } -while($line=<>) { +while(my $line=<>) { if ($line =~ m/^\s*(#|@|\/\/)/) { print $line; next; } |