Am Sat, 23 Aug 2003 09:48:05 +0000 schrieb B. Fongo:
>       foreach (@table_data)
>       {
>            
>            print qq(<td bgcolor='#d0d0d0'>$_</td>); # Here is line 42
>       }

as Frank already pointed out, your trouble is the uninitialized $_ value
you have in line 42 (which is exactly what the warning tells you, BTW).

the reason for this is very probably that @table_data contains items
that have not been initialized (=> they have no value, not even an
empty value assigned to them). @table_data is filled from
database, so _check your database_. I bet you will find "null" values in
here.

if you don't want to output anything if the database delivers such a null
value simply replace your line 42 with

-----CUT------
print qq(<td bgcolor='#d0d0d0'>$_</td>) if $_;
-----CUT------

if you want to output an empty line for null values, then do as Frank
suggested:

-----CUT------
my $val=$_||'NULL'; print qq(<td DEFANGED_bgcolor="0#d0d0d0">$val</td>);
-----CUT------

and no, this has definitively absolute nothing to do with mod_perl, thats
just expected and normal perl behaviour.

happy hacking

udo


-- 
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html

Reply via email to