From ff6b7ba98e8d4aab04cbe2bfdffdfc9171c1812b Mon Sep 17 00:00:00 2001
From: Mark Murray <markm@FreeBSD.org>
Date: Wed, 9 Sep 1998 07:00:04 +0000
Subject: Initial import of Perl5. The king is dead; long live the king!

---
 contrib/perl5/t/op/context.t | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 contrib/perl5/t/op/context.t

(limited to 'contrib/perl5/t/op/context.t')

diff --git a/contrib/perl5/t/op/context.t b/contrib/perl5/t/op/context.t
new file mode 100755
index 000000000000..4625441efa74
--- /dev/null
+++ b/contrib/perl5/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;
-- 
cgit v1.2.3