add tests to check if context propagation works

	Message-ID: <35B1CA51.A606AD27@club-internet.fr>
	Subject: Re: m//g strange behaviour in 5.004

p4raw-id: //depot/perl@1599

1 files changed, 18 insertions, 0 deletions

diff --git a/t/op/context.t b/t/op/context.t
new file mode 100755
index 0000000000..4625441efa
--- /dev/null
+++ b/t/op/context.t
@@ -0,0 +1,18 @@
+#!./perl
+
+$n=0;
+
+print "1..3\n";
+
+sub foo {
+    $a='abcd';
+
+    $a=~/(.)/g;
+
+    $1 eq 'a' or print 'not ';
+    print "ok ",++$n,"\n";
+}
+
+$a=foo;
+@a=foo;
+foo;