commit e1cf3f157909db28d3b216512c466f97c91de61a
author Adam Langley <agl@google.com> Mon Nov 03 18:53:09 2014 -0800
committer Adam Langley <agl@google.com> Mon Nov 10 13:45:32 2014 -0800
tree bfdd7ce935c446125d60e12b758c958f51e5a691
parent 3dfbcc1f250744250bf848d634a185d2ec013a1d

md5-x86_64.pl: work around warning.

(Imported from upstream's 30b7d5e1d83a2f5cb862361c180f7ba1f31a20a5.)

Change-Id: Icbcdb03bcaf8eddda1a7dfecc4f182ce6d93caeb

crypto/md5/asm/md5-x86_64.pl

diff --git a/crypto/md5/asm/md5-x86_64.pl b/crypto/md5/asm/md5-x86_64.pl
index fc684e0..77a6e01 100644
--- a/crypto/md5/asm/md5-x86_64.pl
+++ b/crypto/md5/asm/md5-x86_64.pl
@@ -108,6 +108,7 @@
 EOF
 }
 
+no warnings qw(uninitialized);
 my $flavour = shift;
 my $output  = shift || "";
 if ($flavour =~ /\./) { $output = $flavour; undef $flavour; }
@@ -119,7 +120,6 @@
 ( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or
 die "can't locate x86_64-xlate.pl";
 
-no warnings qw(uninitialized);
 open OUT,"| \"$^X\" $xlate $flavour $output";
 *STDOUT=*OUT;