in reply to "Try join say" or why is this exception not caught? [Solved]

why is this exception not caught?

If I change warn $_; to warn "Caught: $_";, it seems to show that the exception is caught?

Replies are listed 'Best First'.
Re^2: "Try join say" or why is this exception not caught?
by karlgoethebier (Abbot) on Jul 30, 2017 at 10:51 UTC

    Hi haukex, unfortunately this isn't the case... Best regards, Karl

    «The Crux of the Biscuit is the Apostrophe»

    perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

[reply]
[d/l]

      When I make the above modification, and change the two calls of nose() to nose($array) (to see it get called), I get this output:

      $ perl 1196297.pl 
1|2|3|4|5|6|7|8|9|10
0|1|2|3|4|5|6|7|8|9
Caught: Jackass! at 1196297.pl line 32.
$ perl 1196297.pl --flag
1|2|3|4|5|6|7|8|9|10
0|1|2|3|4|5|6|7|8|9
-1|0|1|2|3|4|5|6|7|8

      [download]

      Are you expecting something else, or are you getting different output?

[reply]
[d/l]
[select]

        Ouch! I got it. But it's a bit embarrassing. Mea Culpa. Thank you very much. Best regards, Karl

        «The Crux of the Biscuit is the Apostrophe»

        perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

[reply]
[d/l]

In Section Seekers of Perl Wisdom