Looking for advice on how to be more "perlish" in this bit of code. The idea is to allow execution of a script without pathing in the $0 parameter:
if ($0 =~ m/^\//) {
exec("$0 @ARGV");
} else {
exec("./$0 @ARGV");
}
Thanks,
M@
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
