diff options
author | Andy Polyakov <appro@openssl.org> | 2014-08-30 19:17:09 +0200 |
---|---|---|
committer | Janusz Kozerski <j.kozerski@samsung.com> | 2014-10-20 15:26:04 +0200 |
commit | 46fbadf384aa6bc2c8c0cf4b1ba138e57aaa9929 (patch) | |
tree | 497cc562e284215eaac4d84d878c0a63473fb48a | |
parent | 155ba5d76bff7388fabd4c384d3d6c8944665a22 (diff) | |
download | openssl-46fbadf384aa6bc2c8c0cf4b1ba138e57aaa9929.tar.gz openssl-46fbadf384aa6bc2c8c0cf4b1ba138e57aaa9929.tar.bz2 openssl-46fbadf384aa6bc2c8c0cf4b1ba138e57aaa9929.zip |
md5-x86_64.pl: work around warning.
Reviewed-by: Rich Salz <rsalz@openssl.org>
(cherry picked from commit 4d86e8df6be69ed13abb73fd564f1f894eea0a98)
-rwxr-xr-x | crypto/md5/asm/md5-x86_64.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/crypto/md5/asm/md5-x86_64.pl b/crypto/md5/asm/md5-x86_64.pl index f11224d..381bf77 100755 --- a/crypto/md5/asm/md5-x86_64.pl +++ b/crypto/md5/asm/md5-x86_64.pl @@ -108,6 +108,7 @@ sub round4_step EOF } +no warnings qw(uninitialized); my $flavour = shift; my $output = shift; if ($flavour =~ /\./) { $output = $flavour; undef $flavour; } @@ -119,7 +120,6 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; my $dir=$1; my $xlate; ( $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; |