Re: Re: AW: AW: Use of uninitialized valued in concatenation....

[Marcel Greter]

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

This is not a very good solution. You would also catch the case where $_ 
is 0, which may should not happen. You would better do

foreach (@table_data) {
        $_ = defined $_ ? $_ : "NULL";
        print qq(<td bgcolor='#d0d0d0'>$_</td>); # Here is line 42
}
Basically you also simply could use the warnings pragma within this sub :

no warnings "uninitialized";

greets, Marcel



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