# 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.)

Reply via email to