[INN] #123: Use Getopt::Std instead of legacy getopts.pl

[INN]

#123: Use Getopt::Std instead of legacy getopts.pl
-----------------------+----------------------------------------------------
 Reporter:  iulius     |       Owner:  eagle
     Type:  defect     |      Status:  new  
 Priority:  medium     |   Milestone:  2.5.0
Component:  utilities  |     Version:       
 Severity:  normal     |    Keywords:       
-----------------------+----------------------------------------------------
 In getopts.pl, we can read:
     # This library is no longer being maintained, and is included for
 backward compatibility with Perl 4 programs which may require it.

 Moreover, it causes problems like:

 % innmail -h
   - Use of uninitialized value in string eq at
 /usr/lib/perl5/5.8.5/getopts.pl line 26.

 getopts.pl:

 {{{
     if($pos >= $[) {
         if($args[$pos+1] eq ':') {   ### <--- Line 26
             shift(@ARGV);
 }}}

 % innmail -s "test" mail-address
   - Use of uninitialized value in string eq at (eval 139) line 3.


 We should use Getopt::Std instead of getopts.pl.

-- 
Ticket URL: <http://inn.eyrie.org/trac/ticket/123>
INN <http://www.eyrie.org/~eagle/software/inn/>
InterNetNews