[perl #114346] CATCH { when X::Y {} } gives LTA message about missing block instead of not defined class

[via RT]

# New Ticket Created by  Paweł Pabian 
# Please include the string:  [perl #114346]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=114346 >


When namespace is not defined in CATCH block it gives misleading message about 
missing block.

$ perl6 -e 'CATCH {when X::Y {}}'
===SORRY!===
Missing block
at -e:1

Tested on Rakudo star 2012.07