diff options
| -rw-r--r-- | x2p/a2py.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/x2p/a2py.c b/x2p/a2py.c index 54bdce0aad..454e2dc860 100644 --- a/x2p/a2py.c +++ b/x2p/a2py.c @@ -153,11 +153,8 @@ register char **env; /* second pass to produce new program */ tmpstr = walk(0,0,root,&i,P_MIN); - str = str_make("#!"); - str_cat(str, BIN); - str_cat(str, "/perl\neval \"exec "); - str_cat(str, BIN); - str_cat(str, "/perl -S $0 $*\"\n\ + str = str_make(STARTPERL); + str_cat(str, "\neval 'exec perl -S $0 \"$@\"'\n\ if $running_under_some_shell;\n\ # this emulates #! processing on NIH machines.\n\ # (remove #! line above if indigestible)\n\n"); |