diff options
Diffstat (limited to 'ms/uplink-x86_64.pl')
-rwxr-xr-x | ms/uplink-x86_64.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ms/uplink-x86_64.pl b/ms/uplink-x86_64.pl index 9efe5ab98b..5564c2c7ba 100755 --- a/ms/uplink-x86_64.pl +++ b/ms/uplink-x86_64.pl @@ -6,9 +6,12 @@ # in the file LICENSE in the source distribution or at # https://www.openssl.org/source/license.html -$output=pop; +# $output is the last argument if it looks like a file (it has an extension) +$output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef; + $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; -open OUT,"| \"$^X\" \"${dir}../crypto/perlasm/x86_64-xlate.pl\" \"$output\""; +open OUT,"| \"$^X\" \"${dir}../crypto/perlasm/x86_64-xlate.pl\" \"$output\"" + or die "can't call ${dir}../crypto/perlasm/x86_64-xlate.pl: $!"; *STDOUT=*OUT; push(@INC,"${dir}."); |