diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-17 09:55:38 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-19 06:58:55 +0000 |
| commit | 2beec16e955b826c44eaea93f62e1ff554d4c42a (patch) | |
| tree | 53f8221177a36b065cfa16a2a7bc29f5eea9e49b /t/op/subst.t | |
| parent | c12982c86a2196a797f6a6b78ff87ba73a7de7fe (diff) | |
| download | perl-2beec16e955b826c44eaea93f62e1ff554d4c42a.tar.gz | |
fix flawed substitution-loop detection on zero-length matches
Message-Id: <199807171755.NAA27720@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_72] Substitution loop in devel branch
p4raw-id: //depot/perl@1560
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index 57a956dda6..2d42eeb386 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -6,7 +6,7 @@ BEGIN { @INC = '../lib' if -d '../lib'; } -print "1..70\n"; +print "1..71\n"; $x = 'foo'; $_ = "x"; @@ -302,3 +302,7 @@ s{ \d+ \b [,.;]? (?{ 'digits' }) }{$^R}xg; print ($_ eq $foo ? "ok 70\n" : "not ok 70\n#'$_'\n#'$foo'\n"); +$_ = 'x' x 20; +s/\d*|x/<$&>/g; +$foo = '<>' . ('<x><>' x 20) ; +print ($_ eq $foo ? "ok 71\n" : "not ok 71\n#'$_'\n#'$foo'\n"); |