Make A::B.new in the case that A::B doens't exist emit a message that…

… mentions A::B, not just a null PMC access.
rakudo · Apr 2, 2010 · 9a20634 · 9a20634
1 parent e889ed4
commit 9a20634
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1746,7 +1746,13 @@ method term:sym<name>($/) {
         $var := PAST::Var.new( :name(~$<longname>), :scope('lexical') );
     }
     else {
-        $var := PAST::Var.new( :name(~$name), :namespace($ns), :scope('package') );
+        $var := PAST::Var.new(
+            :name(~$name), :namespace($ns), :scope('package'),
+            :viviself(PAST::Op.new(
+                :pasttype('call'), :name('!FAIL'),
+                "Can not find sub " ~ ~$<longname>
+            ))
+        );
     }
     my $past := $var;
     if $<args> {

diff --git a/src/builtins/Failure.pir b/src/builtins/Failure.pir
@@ -112,6 +112,11 @@ A Perl 6 Exception object.
     .return ($I0)
 .end
 
+.sub '' :vtable('invoke') :method
+    $P0 = self.'exception'()
+    $P0.'throw'()
+.end
+
 =back
 
 =cut