Fix problem with self not being found crying wolf

rakudo · Aug 7, 2013 · 3ba7f55 · 3ba7f55
1 parent a3eecdc
commit 3ba7f55
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -120,8 +120,8 @@ my &lastcall := -> {
 
 my &samewith := -> *@pos, *%named {
     my $my   = callframe(1).my;
-    my $self = $my<self>
-      || die "Could not find 'self'";
+    my $self = $my<self>;
+    die "Could not find 'self'" if !$self.DEFINITE;
     my $dispatcher = $my<&?ROUTINE>.dispatcher
       || die "Could not find dispatcher";
     $dispatcher( $self, |@pos, |%named );