| Subject: | Unitialised value in concat warning |
Use of uninitialized value in concatenation (.) or string at
/usr/lib/perl5/site_perl/5.8.0/Devel/Profile.pm line 119
------------------------------------------------------
sub sub {
my $ti = time(); # wall time at start
# save first, keeps timing calculations simpler
if( !$saving && $TSAVE && ($ti - $tsav) > $TSAVE ){
save();
$ti = time(); # update to account for save
}
my $st = $tacc; # accum time at start
my $sx = "$sub";
if( $sx =~ /CODE/ ){
my @c = caller;
$sx = "<anon>:$c[0]:$c[2]"; # <----- THIS LINE
}
-------------------------------------------------------
Since I'm not sure they SHOULD ever be undefined, you may have a bigger
problem... I'm not sure, so I'm not submitting a patch for it.