Make "perl des-586.pl a.out" work, see RT#402

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 13e61209388cf4bfa2dd5b786bbcceaf31b514d5..3ad889ffd60dd75165e5f2acb990b291babed2b9 100644 (file)
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -167,7 +167,7 @@ sub main'pop        { &out1("popl",@_); $stack-=4; }
 sub main'pushf { &out0("pushf"); $stack+=4; }
 sub main'popf  { &out0("popf"); $stack-=4; }
 sub main'not   { &out1("notl",@_); }
-sub main'call  { &out1("call",$under.$_[0]); }
+sub main'call  { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); }
 sub main'ret   { &out0("ret"); }
 sub main'nop   { &out0("nop"); }