diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-19 20:36:12 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-20 16:06:49 +0200 |
| commit | faee19b51573e81abe8811f1256a1d27777d6d04 (patch) | |
| tree | 0b2a2303ed4a25caf3add46835aad57ef9b2aa85 /pp_ctl.c | |
| parent | 464b2b3dcc8158f7dee4ec9c9d06bd2f09c40687 (diff) | |
| download | perl-faee19b51573e81abe8811f1256a1d27777d6d04.tar.gz | |
Do not try to load a feature bundle when doing "no VERSION"
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3357,8 +3357,9 @@ PP(pp_require) } } - /* We do this only with use, not require. */ + /* We do this only with "use", not "require" or "no". */ if (PL_compcv && + !(cUNOP->op_first->op_private & OPpCONST_NOVER) && /* If we request a version >= 5.9.5, load feature.pm with the * feature bundle that corresponds to the required version. */ vcmp(sv, sv_2mortal(upg_version(newSVnv(5.009005), FALSE))) >= 0) { |