update 09-pir.t to current Q:PIR policy

rakudo · Sep 9, 2011 · ca870df · ca870df
1 parent 46e7cc8
commit ca870df
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/t/00-parrot/09-pir.t b/t/00-parrot/09-pir.t
@@ -17,8 +17,13 @@ say $a;
 sub foo($x) {
     Q:PIR {
         $P0 = find_lex '$x'
-        say $P0
-    }
+        $S0 = repr_unbox_str $P0
+        say $S0
+    };
+    # a Q:PIR block returning nothing as last statement inside a block
+    # is a bad idea, so end on a happy note instead:
+    1;
+
 }
 foo('ok 3');