diff options
| author | Gisle Aas <gisle@aas.no> | 2001-05-18 07:24:51 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-20 10:58:18 +0000 |
| commit | f684db92b07fe69bcc030b369da3dfb252522c72 (patch) | |
| tree | aec224b2c1893310516662c6e9ca0af69a5a191e /pp_ctl.c | |
| parent | 9b33ce3b1592d0c13aec55cf7c63e0b9253b6b22 (diff) | |
| download | perl-f684db92b07fe69bcc030b369da3dfb252522c72.tar.gz | |
require $mod where $mod has touched numeric context
Message-ID: <lr3da2cpuk.fsf@caliper.ActiveState.com>
p4raw-id: //depot/perl@10162
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |