Permalink
Browse files

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

  • Loading branch information...
moritz committed Sep 9, 2011
1 parent 46e7cc8 commit ca870df127e3183a21ca6b2b31400f0a53c604f5
Showing with 7 additions and 2 deletions.
  1. +7 −2 t/00-parrot/09-pir.t
View
@@ -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');

0 comments on commit ca870df

Please sign in to comment.