diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-04 14:40:22 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-04 14:40:44 -0800 |
| commit | 0d93ddf17505a64b7b9215047f3ff668b611792c (patch) | |
| tree | c368ec56aba964cd771f2bffe2e4069ff0f583cb /ext/Devel-Peek | |
| parent | a7b9f5edcd5dee20b09d3d1e4402f600e859865b (diff) | |
| download | perl-0d93ddf17505a64b7b9215047f3ff668b611792c.tar.gz | |
Make Peek.t less sensitive to NO_COW config args
Maybe what I am doing is too clever, but I just take the last Configure
command line and add an S to -DPERL_NO_COW to disable it. It doesn’t
hurt to make Peek.t more robust, though.
Diffstat (limited to 'ext/Devel-Peek')
| -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 0a4c637302..51aa81695f 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -90,7 +90,7 @@ sub do_test { /mge; $pattern =~ s/^\h+COW_REFCNT = .*\n//mg if $Config{ccflags} =~ - /-DPERL_(?:OLD_COPY_ON_WRITE|NO_COW)/ + /-DPERL_(?:OLD_COPY_ON_WRITE|NO_COW)\b/ || $] < 5.019003; print $pattern, "\n" if $DEBUG; my ($dump, $dump2) = split m/\*\*\*\*\*\n/, scalar <IN>; @@ -185,7 +185,7 @@ my $type = do_test('result of addition', do_test('floating point value', $d, $] < 5.019003 - || $Config{ccflags} =~ /-DPERL_(?:NO_COW|OLD_COPY_ON_WRITE)/ + || $Config{ccflags} =~ /-DPERL_(?:NO_COW|OLD_COPY_ON_WRITE)\b/ ? 'SV = PVNV\\($ADDR\\) at $ADDR REFCNT = 1 |