Mailing List Archive

Use of uninitialized value at /usr/local/lib/perl5/getopts.pl line 18.

This happens when I call "perl -w this_program -i" on this program here:

require 'getopts.pl';
Getopts('i') || die "bad usage";
print "got it" if $opt_i;

The work-around for the nonce is:


require 'getopts.pl';
{
local $^W = 0;
Getopts('i') || die "bad usage";
}
print "got it" if $opt_i;

but it should be fixable.

--tom

Tom Christiansen Perl Consultant, Gamer, Hiker tchrist@mox.perl.com
"Some people think abstraction makes things easier, while others think it
makes things harder. It depends on whether you like to think about things."
--Larry Wall