Zero-length matching bug

	Message-Id: <199806210827.EAA26322@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1185

1 files changed, 17 insertions, 1 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index 9377b9919d..f0bbdbc315 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..108\n";
+print "1..113\n";
 
 $x = "abc\ndef\n";
 
@@ -378,6 +378,22 @@ print "not " unless study(/\b\v$/) eq '\bv$';
 print "ok $test\n";
 $test++;
 
+$_ = 'xabcx';
+foreach $ans ('', 'c') {
+  /(?<=(?=a)..)((?=c)|.)/g;
+  print "not " unless $1 eq $ans;
+  print "ok $test\n";
+  $test++;
+}
+
+$_ = 'a';
+foreach $ans ('', 'a', '') {
+  /^|a|$/g;
+  print "not " unless $& eq $ans;
+  print "ok $test\n";
+  $test++;
+}
+
 sub must_warn_pat {
     my $warn_pat = shift;
     return sub { print "not " unless $_[0] =~ /$warn_pat/ }