From: Gisle Aas <gisle@aas.no>
Date: Fri, 18 May 2001 14:24:51 +0000 (-0700)
Subject: require $mod where $mod has touched numeric context
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f684db92b07fe69bcc030b369da3dfb252522c72;p=p5sagit%2Fp5-mst-13.2.git

require $mod where $mod has touched numeric context
Message-ID: <lr3da2cpuk.fsf@caliper.ActiveState.com>

p4raw-id: //depot/perl@10162
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 0f034ee..166d1da 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3033,7 +3033,7 @@ PP(pp_require)
 
     sv = POPs;
     if (SvNIOKp(sv)) {
-	if (SvPOK(sv) && SvNOK(sv)) {		/* require v5.6.1 */
+	if (SvPOK(sv) && SvNOK(sv) && SvNV(sv)) {		/* require v5.6.1 */
 	    UV rev = 0, ver = 0, sver = 0;
 	    STRLEN len;
 	    U8 *s = (U8*)SvPVX(sv);