Make sure accessing the non-existent return value of unwrap doesn't c…

…ause Null PMC Access by handing back Nil.
rakudo · Apr 9, 2009 · 04f63fc · 04f63fc
1 parent 531fe43
commit 04f63fc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/classes/Routine.pir b/src/classes/Routine.pir
@@ -99,7 +99,8 @@ wrappable executable objects.
     $P1 = getprop '$!wrap_handle', $P0
     setprop current, '$!wrap_handle', $P1
   unwrap_done:
-    .return ()
+    $P0 = new 'Nil'
+    .return ($P0)
 
   handle_not_found:
     'die'('Could not find unwrap handle ', handle, ' on sub ', self)