RE: Use of uninitialized value

[Charles K. Clarkson]

[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> wrote:

: it is on line 207...thx!
: "Use of uninitialized value in string eq at line 207"

: (See attached file: ASM_monitor.pl)


    Are you certain the version you sent is the version
on the server?


    This does not produce an error. (It is from the version
you sent.)

#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:standard), (-unique_headers);

my $q = CGI->new();

my $which_import = $q->param('action') || '';

if ($which_import eq 'Import STKvol') {
    print "foo\n";
}

__END__


    This *does* produce an error.

#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:standard), (-unique_headers);

my $q = CGI->new();

my $which_import = $q->param('action');

if ($which_import eq 'Import STKvol') {
    print "foo\n";
}

__END__


HTH,

Charles K. Clarkson
-- 
Mobile Homes Specialist
254 968-8328




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