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 (file)
--- 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);