Re: "Try join say" or why is this exception not caught?

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

I can't see where the exception is not caught. If $flag is not defined, I am told being a jackass (which might otherwise be true) because nose() is called in void context. What exception condition am I overlooking? Which isn't caught? The try block outputs an empty string when $flag is set, because nose is called without argument. Where is the problem? am I having one these famous mental blocks again?

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Comment on Re: "Try join say" or why is this exception not caught? Select or Download Code

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 11:34 UTC
"I can't see...condition am I overlooking..." Yes. I was a bit blind this morning. Probably too much paella last night... Thank you very much and 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