diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-01 23:11:28 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-01 23:11:28 +0000 |
| commit | 207d4cd062af604f6bdff602752c11193548c8e7 (patch) | |
| tree | ffcc6d868ff8411903a9f2b73cc6133fd6b79447 /x2p/a2py.c | |
| parent | b5fd5023ac4700eaeafeadaf810e0e39198657a5 (diff) | |
| download | perl-207d4cd062af604f6bdff602752c11193548c8e7.tar.gz | |
Use new config_h.SH STARTPERL #define.
Diffstat (limited to 'x2p/a2py.c')
| -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"); |