Switched to using Getopt::Std.

git-svn-id: svn://svn.code.sf.net/p/dist/code/trunk/dist@112 2592e710-e01b-42a5-8df0-11608a6cc53d

1 files changed, 2 insertions, 2 deletions

diff --git a/bin/perload b/bin/perload
index a0ed31c..4dc77c2 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