Enable &prefix:<?> to work on foreign objects.

rakudo · May 29, 2010 · c491a18 · c491a18
1 parent ffb9a36
commit c491a18
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -22,7 +22,9 @@ our multi infix:<!~~>(Mu $topic, Mu $matcher) {
 }
 
 our multi prefix:<?>(Mu $a) {
-    $a.Bool;
+    pir::can($a, 'Bool') 
+    ?? $a.Bool 
+    !!  ( pir::istrue($a) ?? True !! False );
 }
 
 our multi prefix:<!>(Mu $a) {