blob: c58651675564a7866e76c3674c4961fee3442a25 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
eval "exec /usr/bin/perl -Spi.bak $0 $*"
if $running_under_some_shell;
# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/nih,v 1.1.1.1.6.1 1996/06/05 02:41:53 jkh Exp $
# 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;|
if $. == 1;
|
