diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-30 12:16:35 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-30 12:16:35 +0000 |
| commit | 2b631c9356b0f839ed3ae65cb5939f6101ae50f1 (patch) | |
| tree | ab38bd16752ad291e0fbe15ef391cd3bb897e9ca /ext/Devel | |
| parent | fad23372ba209cec4e1b9aca9f05def99e23d439 (diff) | |
| download | perl-2b631c9356b0f839ed3ae65cb5939f6101ae50f1.tar.gz | |
Need to substitute out the placeholder '$RV' for earlier perls too.
p4raw-id: //depot/perl@33125
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index e62ffdfba2..24cac9524d 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -44,7 +44,9 @@ sub do_test { $pattern =~ s/^ *\$IVNV *\n/ ($] < 5.009) ? " IV = 0\n NV = 0\n" : ''; /mge; - $pattern =~ s/\$RV/IV/g if $] >= 5.011; + $pattern =~ s/\$RV/ + ($] < 5.011) ? 'RV' : 'IV'; + /mge; $pattern =~ s/^ *\$NV *\n/ ($] < 5.011) ? " NV = 0\n" : ''; /mge; |