diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-18 16:41:26 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-18 13:59:48 +0000 |
| commit | d4a8e56c4dba2cdaeeea4c6a0c703df02a2c74b3 (patch) | |
| tree | 668fd9493d5fb1ee5d44eab5bde3e33e8a1de572 /pp_ctl.c | |
| parent | 476544504b947116ee05cdb1f7600d270222ac97 (diff) | |
| download | perl-d4a8e56c4dba2cdaeeea4c6a0c703df02a2c74b3.tar.gz | |
bug on "do NUMBER"
Message-Id: <20020218154126.A692@rafael>
p4raw-id: //depot/perl@14741
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2870,7 +2870,7 @@ PP(pp_require) OP *op; sv = POPs; - if (SvNIOKp(sv)) { + if (SvNIOKp(sv) && PL_op->op_type != OP_DOFILE) { if (SvPOK(sv) && SvNOK(sv) && SvNV(sv)) { /* require v5.6.1 */ UV rev = 0, ver = 0, sver = 0; STRLEN len; |