Final push on converting new ['Failure'] to '!FAIL'(). Allows RT#5864…

…6 which set out this task to be closed.
rakudo · Aug 19, 2009 · 201ffc2 · 201ffc2
1 parent 9729b05
commit 201ffc2
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -383,7 +383,7 @@ on error.
 
     # Invoke.
     res = invokable()
-    exception = new ['Failure']
+    exception = '!FAIL'()
     goto done
 
   catch:

diff --git a/src/classes/Failure.pir b/src/classes/Failure.pir
@@ -56,7 +56,7 @@
     unless x goto no_args
     die "Obsolete use of undef; in Perl 6 please use undefine instead"
   no_args:
-    $P0 = new ['Failure']
+    $P0 = '!FAIL'()
     .return ($P0)
 .end
 

diff --git a/src/classes/Nil.pir b/src/classes/Nil.pir
@@ -52,7 +52,7 @@ src/classes/Nil.pir - Nil objects
 
 .namespace ['Nil']
 .sub 'Scalar' :method
-    $P0 = new ['Failure']
+    $P0 = '!FAIL'()
     .return ($P0)
 .end
 

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -625,7 +625,7 @@ method statement_prefix($/) {
 
         ##  Add an 'else' node to the try op that clears $! if
         ##  no exception occurred.
-        my $elsepir  := "    new %r, ['Failure']\n    store_lex '$!', %r";
+        my $elsepir  := "    %r = '!FAIL'()\n    store_lex '$!', %r";
         $past.push( PAST::Op.new( :inline( $elsepir ) ) );
     }
     elsif $sym eq 'gather' {