Thanks for the advice. After I posted I tried this and it worked too:

foreach (keys %opts_hash)
{
        # This next line of code eliminates the "Use of uninitialized value
in
        # numeric eq (==)" error when 'use warnings;' is enabled.
        if ( !defined $opts_hash{$_} )
        {
                next;
        }
        elsif ( $opts_hash{$_} == 1 )
        {
                print "$_ = $opts_hash{$_}\n";
        }
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to