From: David Benjamin <davidben@google.com>
Date: Mon, 20 Jun 2016 19:05:06 +0000 (-0400)
Subject: Make arm-xlate.pl set use strict.
X-Git-Tag: OpenSSL_1_1_0-pre6~379
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=abeae4d3251181f1cedd15e4433e79406b766155;p=oweals%2Fopenssl.git

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)
---

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; }