On Jul 17, Kevin Old said:
>Name "main::opt_C" used only once: possible typo at ./cdma.pl line 42.
>Name "main::mar_cdl_format" used only once: possible typo at ./cdma.pl
>line 64.
>Name "main::daily" used only once: possible typo at ./cdma.pl line 46.
>Name "CDMAConfig::PDF_FILE_PATH" used only once: possible typo at
>../cdma.pl line 54.
>Name "main::date" used only once: possible typo at ./cdma.pl line 46.
Then declare them::
# perl 5.6
our ($opt_C, $mar_cdl_format, $daily, $date);
# before perl 5.6
use vars qw( $opt_C $mar_cdl_format $daily $data );
Or, if you're using Perl 5.6, tell Perl you don't care about that warning
message:
no warnings 'once';
If you're using something before 5.6, here's a hack:
BEGIN {
$SIG{__WARN__} = sub {
return if "@_" =~ /used only once/;
warn "@_";
}
}
>Use of uninitialized value in numeric eq (==) at ./cdma.pl line 42.
That's a problem you have to FIX.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
