Add test cases from perl# 3516 (\G with /g)

[p5pRT]

Migrated from rt.perl.org#76706 (status was 'resolved')

Searchable as RT76706$

[p5pRT]

From @greerga

Three test cases were included with #3516 and should be added to the
test suite. A "git bisect"-able version is attached, which is what I used
to track down the fixing commit.

--
George Greer

[p5pRT]

From @greerga

#!/usr/bin/perl
my $count_1 = 0;
while ("abc" =~ m/(\G[ac])?/g) {
  fail() if $count_1++ > 10;
# print "$count_1​: have [$&]\n";
}
my $count_2 = 0;
while ("abc" =~ m/(\G|.)[ac]/g) {
  fail() if $count_2++ > 10;
# print "$count_2​: have [$&]\n";
}
my $count_3 = 0;
while ("abc" =~ m/(\G?[ac])?/g) {
  fail() if $count_3++ > 10;
# print "$count_3​: have [$&]\n";
}
success();

# For git bisect this is backwards
sub fail { exit 0; }
sub success { exit 1; }

[p5pRT]

@gannett-ggreer - Status changed from 'new' to 'open'

[p5pRT]

From @iabyn

On Sat, Jul 24, 2010 at 08​:06​:08PM -0700, George Greer wrote​:

Three test cases were included with #3516 and should be added to the
test suite. A "git bisect"-able version is attached, which is what I used
to track down the fixing commit.

Tests added with commit 99ca48e

--
Atheism is a religion like not collecting stamps is a hobby

[p5pRT]

@iabyn - Status changed from 'open' to 'resolved'