# New Ticket Created by Ben Petering
# Please include the string: [perl #68318]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=68318 >
# "Normal" exception in try {} is caught
BEGIN {
try {
widdle;
CATCH {
say "caught: $!";
}
}
}
# But "use" is not.
BEGIN {
try {
use NonExistent; # dies, not caught.
CATCH {
say "caught: $!";
}
}
}
Output (with Rakudo pulled 2009-08-08 06:40 UTC, how on earth do you
specify revisions with git?)
caught: Could not find non-existent sub widdle
Can't find ./NonExistent in @*INC
in Main (src\gen_setting.pm:445)
(I'm not sure if this is correct, but I'm struggling to imagine why
this would be useful behavior.)