diff options
-rwxr-xr-x | ms/uplink-x86_64.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ms/uplink-x86_64.pl b/ms/uplink-x86_64.pl index 5564c2c7ba..8b28949ccf 100755 --- a/ms/uplink-x86_64.pl +++ b/ms/uplink-x86_64.pl @@ -8,9 +8,10 @@ # $output is the last argument if it looks like a file (it has an extension) $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef; +$flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : 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\" $flavour \"$output\"" or die "can't call ${dir}../crypto/perlasm/x86_64-xlate.pl: $!"; *STDOUT=*OUT; push(@INC,"${dir}."); |