1 files changed, 13 insertions, 3 deletions
diff --git a/t/op/pat.t b/t/op/pat.t
index d93e6d66e2..d9941fa816 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: pat.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:12 $
 
-print "1..60\n";
+print "1..61\n";
 
 $x = "abc\ndef\n";
 
@@ -134,17 +134,19 @@ print join(':',@words) eq "now:is:the:time:for:all:good:men:to:come:to"
     : "not ok 45\n";
 
 @words = ();
+pos = 0;
 while (/to/g) {
     push(@words, $&);
 }
 print join(':',@words) eq "to:to"
     ? "ok 46\n"
-    : "not ok 46 @words\n";
+    : "not ok 46 `@words'\n";
 
+pos $_ = 0;
 @words = /to/g;
 print join(':',@words) eq "to:to"
     ? "ok 47\n"
-    : "not ok 47 @words\n";
+    : "not ok 47 `@words'\n";
 
 $_ = "abcdefghi";
 
@@ -191,12 +193,14 @@ $x=/abc/g;
 print $` eq "abcfoo" ? "ok 53\n" : "not ok 53\n" if $x;
 $x=/abc/g;
 print $x == 0 ? "ok 54\n" : "not ok 54\n";
+pos = 0;
 $x=/ABC/gi;
 print $` eq "" ? "ok 55\n" : "not ok 55\n" if $x;
 $x=/ABC/gi;
 print $` eq "abcfoo" ? "ok 56\n" : "not ok 56\n" if $x;
 $x=/ABC/gi;
 print $x == 0 ? "ok 57\n" : "not ok 57\n";
+pos = 0;
 $x=/abc/g;
 print $' eq "fooabcbar" ? "ok 58\n" : "not ok 58\n" if $x;
 $x=/abc/g;
@@ -204,3 +208,9 @@ print $' eq "bar" ? "ok 59\n" : "not ok 59\n" if $x;
 $_ .= '';
 @x=/abc/g;
 print scalar @x == 2 ? "ok 60\n" : "not ok 60\n";
+
+$_ = "abdc";
+pos $_ = 2;
+/\Gc/g;
+print "not " if (pos $_) != 2;
+print "ok 61\n";