[also posted to c.l.p.misc and c.l.p.modules ... I'm desperate :)]
just out of curiosity (and since a message to someone else reminded me that
I could also do this :) I checked my weblogs with tail -f to see if anything
shows up that I was unaware of with one of my scripts, and lo! there's about
7300 lines of this:
[Mon Apr 2 14:24:09 2001] ncmapslistdbi.cgi: Use of uninitialized value at
/opt/lib/perl5/site_perl/DBD/CSV.pm line 197.
[Mon Apr 2 14:24:09 2001] ncmapslistdbi.cgi: Use of uninitialized value at
/opt/lib/perl5/site_perl/DBD/CSV.pm line 197, <GEN1> chu
nk 1.
the offending code section:
-=-
package DBD::CSV::Table;
@DBD::CSV::Table::ISA = qw(DBD::File::Table);
sub fetch_row ($$) {
my($self, $data) = @_;
my $fields;
if (exists($self->{cached_row})) {
$fields = delete($self->{cached_row});
} else {
my $csv = $self->{csv_csv}; ## <-- the offending line 197
local $/ = $csv->{'eol'};
$fields = $csv->getline($self->{'fh'});
if (!$fields) {
die "Error while reading file " . $self->{'file'} . ": $!" if $!;
return undef;
}
}
$self->{row} = (@$fields ? $fields : undef);
}
-=-
I'm sure there's a reason for this -- but not 100% certain as to what.
the script body itself can be viewed here, in the most recent version
<http://216.155.0.50/~sgodin/misc/codesample.htm>
(too long to post here)
I looked at my code again and cannot really see where this might be coming
from. ANY help would be appreciated.. I'm QUITE sure my ISP would prefer and
appreciate that I don't fill their weblogs with 7300 lines of this crap
every time my script gets accessed. :/
Any assistance appreciated.
--
Scott R. Godin | e-mail : [EMAIL PROTECTED]
Laughing Dragon Services | web : http://www.webdragon.net/
