diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-09-04 14:55:00 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-09-10 10:48:23 +0200 |
| commit | fb1c5e878bf0315522026933566ec8a1a5ccdff8 (patch) | |
| tree | b5a74fa4fadedb3f024eea40ece1c0f198d14f47 | |
| parent | 33826e50f1fadeb78079f923096ae96ea6101883 (diff) | |
| download | perl-fb1c5e878bf0315522026933566ec8a1a5ccdff8.tar.gz | |
Fix Devel::Peek's tests when building with -DPERL_NO_COW
One test had a pattern with a (?:...)? construction split across two lines,
specifically enclosing the newline at the end of a line, and the line that
followed.
When perl is built with -DPERL_NO_COW or -DPERL_OLD_COPY_ON_WRITE the test's
do_test() driver routine would remove the second line, which included the
closing ')?', leaving a an invalid regex. The solution is to remove the
(?: )? completely, as the driver routine's line removal has the same intent
as the (?: )? construction.
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 7025b45b38..75f4a44d43 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1175,8 +1175,8 @@ unless ($Config{useithreads}) { FLAGS = \\(PADMY,POK,(?:IsCOW,)?pPOK\\) PV = $ADDR "good"\\\0 CUR = 4 - LEN = \d+(?: - COW_REFCNT = 1)? + LEN = \d+ + COW_REFCNT = 1 '); } |