Description: Use Getopt::Std rather than getopts.pl
Author: Colin Watson <cjwatson@ubuntu.com>
Forwarded: no
Last-Update: 2012-05-06

Index: b/scripts/identd.perl5
===================================================================
--- a/scripts/identd.perl5
+++ b/scripts/identd.perl5
@@ -20,7 +20,7 @@
 ###################################################################
 
 use Socket;
-require 'getopts.pl';
+use Getopt::Std;
 
 # Set path to lsof.
 
@@ -36,7 +36,7 @@
 
 $Timeout = "120";
 
-&Getopts('t:');
+&getopts('t:');
 if ($opt_t) {
     $Timeout = $opt_t;
 }
Index: b/scripts/sort_res.perl5
===================================================================
--- a/scripts/sort_res.perl5
+++ b/scripts/sort_res.perl5
@@ -33,7 +33,6 @@
 #	-removing unuseful line number arg.
 #	-display global size
 
-require 'getopts.pl';
 my @args = @_;
 
 # Set path to lsof.
