Root/
| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | |
| 4 | sub usage |
| 5 | { |
| 6 | print STDERR "usage: $0 command [arg ...]\n"; |
| 7 | exit(1); |
| 8 | } |
| 9 | |
| 10 | |
| 11 | &usage unless @ARGV; |
| 12 | |
| 13 | ($d = $0) =~ s|/[^/]*$||; |
| 14 | if ($d eq "") { |
| 15 | $p = "/"; |
| 16 | } elsif ($d =~ /^\//) { |
| 17 | $p = "$d"; |
| 18 | } else { |
| 19 | chomp($cwd = `pwd`); |
| 20 | $p = "$cwd/$d"; |
| 21 | } |
| 22 | |
| 23 | $cmd = shift @ARGV; |
| 24 | $cmd = "$p/$cmd" unless $cmd =~ m|/|; |
| 25 | exec("perl", "-I", $p, $cmd, @ARGV); |
| 26 | die "exec perl: $!"; |
| 27 |
Branches:
master
