RE: Use of uninitialized value

[DBSMITH]

                                                                           
             "Charles K.                                                   
             Clarkson"                                                     
             <[EMAIL PROTECTED]                                          To 
             .net>                     <beginners-cgi@perl.org>            
                                                                        cc 
             09/14/2005 08:57                                              
             PM                                                    Subject 
                                       RE: Use of uninitialized value      
                                                                           
                                                                           
                                                                           
                                                                           
                                                                           
                                                                           







[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
*********************************************************************

you must be right b/c I have not seen any errors in
/var/apache/logs/error_log since yesterday.
If I do see anymore I will continue this thread.

thanks
derek




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