set_up_inc('../lib');
}
-plan(tests => 62);
+plan(tests => 63);
sub empty_sub {}
sub g { !!(my $x = bless []); }
f(g());
}
+
+# return should have the right PL_curpm while copying its return args
+
+sub curpm {
+ "b" =~ /(.)/;
+ {
+ "c" =~ /(.)/;
+ return $1;
+ }
+}
+"a" =~ /(.)/;
+is(curpm(), 'c', 'return and PL_curpm');