X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=eg%2Fnih;h=4475c499da024b617df00ba6a4d1e7368347fe4d;hb=ac4c12e7aee90d31d5da776601addbfd9d738a5a;hp=4b7cda389d3fcb463359e1801ce401b9a797fe01;hpb=fe14fcc35f78a371a174a1d14256c2f35ae4262b;p=p5sagit%2Fp5-mst-13.2.git diff --git a/eg/nih b/eg/nih index 4b7cda3..4475c49 100644 --- a/eg/nih +++ b/eg/nih @@ -1,10 +1,11 @@ -eval "exec /usr/bin/perl -Spi.bak $0 $*" +eval 'exec /usr/bin/perl -Spi.bak $0 ${1+"$@"}' if $running_under_some_shell; -# $Header: nih,v 4.0 91/03/20 01:11:29 lwall Locked $ +# $RCSfile: nih,v $$Revision: 4.1 $$Date: 92/08/07 17:20:27 $ # This script makes #! scripts directly executable on machines that don't # support #!. It edits in place any scripts mentioned on the command line. -s|^#!(.*)|#!$1\neval "exec $1 -S \$0 \$*"\n\tif \$running_under_some_shell;| +s[^#!(.*)] + [#!$1\neval 'exec $1 -S \$0 \${1+"\$@"}'\n\tif \$running_under_some_shell;] if $. == 1;