From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 30 Jan 2008 12:16:35 +0000 (+0000)
Subject: Need to substitute out the placeholder '$RV' for earlier perls too.
X-Git-Tag: accepted/trunk/20130322.191538~13588
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2b631c9356b0f839ed3ae65cb5939f6101ae50f1;p=platform%2Fupstream%2Fperl.git

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
--- 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;