X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=ms%2Fuplink-x86_64.pl;h=0cb0f1b3000fca1bc19d826e0a2275540f6789b4;hp=2758c86d1e0595002d8a080ff416ac6974533843;hb=acf1525966161dc5d0f875d92ae3def5df628245;hpb=6251989eb6168c1baada70c5b16c7742861d3d03

diff --git a/ms/uplink-x86_64.pl b/ms/uplink-x86_64.pl
index 2758c86d1e..0cb0f1b300 100755
--- a/ms/uplink-x86_64.pl
+++ b/ms/uplink-x86_64.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/env perl
 
-$output=shift;
+$output=pop;
 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
-open STDOUT,"| \"$^X\" ${dir}../crypto/perlasm/x86_64-xlate.pl $output";
+open OUT,"| \"$^X\" ${dir}../crypto/perlasm/x86_64-xlate.pl $output";
+*STDOUT=*OUT;
 push(@INC,"${dir}.");
 
 require "uplink-common.pl";