Fix try to put error in $!, not inline

sorear · Oct 21, 2010 · 94651cd · 94651cd
1 parent 876edf3
commit 94651cd
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/lib/Kernel.cs b/lib/Kernel.cs
@@ -1283,6 +1283,11 @@ class ExitRunloopException : Exception { }
                     tf.caller.resultSlot = Kernel.NewROScalar(Kernel.AnyP);
                     return tf.caller;
                 }
+            } else if (type == SubInfo.ON_DIE) {
+                if (tf.lex == null)
+                    tf.lex = new Dictionary<string,object>();
+                tf.lex["$*!"] = td;
+                td = Kernel.NewROScalar(Kernel.AnyP);
             }
             tf.ip = tip;
             tf.resultSlot = td;

diff --git a/test2.pl b/test2.pl
@@ -64,6 +64,9 @@
         token TOP:foo { <sym> }
     }).parse("foo");
     is $m<sym>, "foo", '$<sym> is functional';
+
+    ok !(try die "foo").defined, "try of an error is undef";
+    is $!, "foo", 'the error goes into $!';
 }
 
 # {