Need to substitute out the placeholder '$RV' for earlier perls too.

p4raw-id: //depot/perl@33125

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index e62ffdf..24cac95 100644 (file)
--- 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;