Change 33125 by [EMAIL PROTECTED] on 2008/01/30 12:16:35
Need to substitute out the placeholder '$RV' for earlier perls too.
Affected files ...
... //depot/perl/ext/Devel/Peek/t/Peek.t#39 edit
Differences ...
==== //depot/perl/ext/Devel/Peek/t/Peek.t#39 (text) ====
Index: perl/ext/Devel/Peek/t/Peek.t
--- perl/ext/Devel/Peek/t/Peek.t#38~33071~ 2008-01-26 02:24:40.000000000
-0800
+++ perl/ext/Devel/Peek/t/Peek.t 2008-01-30 04:16:35.000000000 -0800
@@ -44,7 +44,9 @@
$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;
End of Patch.
