Re^5: Bug in eval in pre-5.14

The output for me made it look like they all bugged out. Notice they all have the same message and line number.eval is hiding a warning from us now with die replacing the number one and this is "just another bug".

Caught with Splacker: inside at C:\xampp\cgi-bin\Test\index.cgi line 2
+3.
Caught with $@: inside at C:\xampp\cgi-bin\Test\index.cgi line 23.
Caught with or: inside at C:\xampp\cgi-bin\Test\index.cgi line 23.
Caught with Try::Tiny: inside at C:\xampp\cgi-bin\Test\index.cgi line 
+23.
5.008008
[download]

To catch the hidden error by using the code below, it will work with AND WITHOUT! warnings on...
"in cleanup" warnings generated from destructor errors are no longer enabled by "use warnings"
$SIG{ __WARN__} = sub { exit 1 if $_[0] =~ /in cleanup/ };

Comment on Re^5: Bug in eval in pre-5.14 Select or Download Code

Replies are listed 'Best First'.
Re^6: Bug in eval in pre-5.14 by choroba (Cardinal) on Aug 14, 2016 at 11:19 UTC
Time to upgrade, it seems. `5.020001 Caught with Splacker: inside at ./1.pl line 23. Caught with $@: Exception 1! at ./1.pl line 45. Caught with or: Exception 2! at ./1.pl line 54. Caught with Try::Tiny: Exception 3! at ./1.pl line 65.` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^6: Bug in eval in pre-5.14
by choroba (Cardinal) on Aug 14, 2016 at 11:19 UTC

5.020001
Caught with Splacker: inside at ./1.pl line 23.
Caught with $@: Exception 1! at ./1.pl line 45.
Caught with or: Exception 2! at ./1.pl line 54.
Caught with Try::Tiny: Exception 3! at ./1.pl line 65.
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

[reply]
[d/l]
[select]