From f684db92b07fe69bcc030b369da3dfb252522c72 Mon Sep 17 00:00:00 2001
From: Gisle Aas <gisle@aas.no>
Date: Fri, 18 May 2001 07:24:51 -0700
Subject: [PATCH] require $mod where $mod has touched numeric context
 Message-ID: <lr3da2cpuk.fsf@caliper.ActiveState.com>

p4raw-id: //depot/perl@10162
---
 pp_ctl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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