2011/12/6 Ivan Petrov <[email protected]>:
> она там приходит перемешана с разного рода добавками
>
> то есть кто-то написал die 123;
> а придет "123 at File.name line 345"
>
> а иногда еще добавит разного рода другой мусор
local $SIG{__DIE__} = sub {
(undef, $filename, $line) = caller(0);
$line = do {
open(my $fh, $filename);
my @l = <$fh>;
$l[$line - 1];
};
};
:)
естb ещё возможность через perl -d и тогда: $main::{"_<$filename"}, но
у меня с пол-пинка не вышло, если будет время, - поковыряю
--
Varyanick I. Alex
icq: 102 575 440
skype: cono..
[email protected]
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
