diff options
Diffstat (limited to 'bin/perload')
-rwxr-xr-x | bin/perload | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/perload b/bin/perload index ae60d7c..e9e5544 100755 --- a/bin/perload +++ b/bin/perload @@ -37,8 +37,8 @@ $current_package = 'main'; # Current package $init_emitted = 0; # True when dataloading stamp was emitted $in_function = 0; -require 'getopt.pl'; -&Getopt; +use Getopt::Std; +getopts("ot"); while (<>) { if ($. == 1 && /^(:|#).*perl/) { # Invocation stub |