diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-26 22:55:26 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 21:09:48 +0000 |
| commit | b85d18e97b6ae9e0cc168f99b999fd3fd33104bd (patch) | |
| tree | fba77924a69fae7095030b314eb5e20f98b74006 /t/op/regexp.t | |
| parent | b174585de5ccc9973ba572393b2b34e1a6a5b749 (diff) | |
| download | perl-b85d18e97b6ae9e0cc168f99b999fd3fd33104bd.tar.gz | |
applied patch, tweaked doc, and regen regnodes.h
Message-Id: <199806270655.CAA29144@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_68] \z in RE
p4raw-id: //depot/perl@1250
Diffstat (limited to 't/op/regexp.t')
| -rwxr-xr-x | t/op/regexp.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/op/regexp.t b/t/op/regexp.t index e3eb336c3b..7e43526f63 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -21,7 +21,7 @@ # Column 5 contains the expected result of double-quote # interpolating that string after the match, or start of error message. # -# Columns 1, 2 and 5 are \n-interpolated. +# \n in the tests are interpolated. # # If you want to add a regular expression test that can't be expressed # in this format, don't add it here: put it in op/pat.t instead. @@ -40,7 +40,9 @@ $| = 1; print "1..$numtests\n# $iters iterations\n"; TEST: while (<TESTS>) { - ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_); + chomp; + s/\\n/\n/g; + ($pat, $subject, $result, $repl, $expect) = split(/\t/,$_); $input = join(':',$pat,$subject,$result,$repl,$expect); infty_subst(\$pat); infty_subst(\$expect); |