[svn:parrot] r35420 - trunk/languages/perl6/src/classes

Author: pmichaud
Date: Sun Jan 11 08:33:13 2009
New Revision: 35420

Modified:
   trunk/languages/perl6/src/classes/Whatever.pir

Log:
[rakudo]:  Make Whatever more graceful outside of slices (RT #62066).


Modified: trunk/languages/perl6/src/classes/Whatever.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Whatever.pir	(original)
+++ trunk/languages/perl6/src/classes/Whatever.pir	Sun Jan 11 08:33:13 2009
@@ -32,12 +32,18 @@
 
 .sub '' :vtable('get_integer') :method
     $P0 = get_global '$!slice'
+    unless null $P0 goto have_whatever
+    $P0 = 'undef'()
+  have_whatever:
     $I0 = $P0
     .return ($I0)
 .end
 
 .sub '' :vtable('get_number') :method
     $P0 = get_global '$!slice'
+    unless null $P0 goto have_whatever
+    $P0 = 'undef'()
+  have_whatever:
     $N0 = $P0
     .return ($N0)
 .end

• [svn:parrot] r35420 - trunk/languages/perl6/src/classes by pmichaud