diff options
-rw-r--r-- | pp_ctl.c | 2 | ||||
-rw-r--r-- | universal.c | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -3601,7 +3601,7 @@ PP(pp_require) sv = POPs; if ( (SvNIOKp(sv) || SvVOK(sv)) && PL_op->op_type != OP_DOFILE) { sv = sv_2mortal(new_version(sv)); - if (!sv_derived_from(PL_patchlevel, "version")) + if (!Perl_sv_derived_from_pvn(aTHX_ PL_patchlevel, STR_WITH_LEN("version"), 0)) upg_version(PL_patchlevel, TRUE); if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) { if ( vcmp(sv,PL_patchlevel) <= 0 ) diff --git a/universal.c b/universal.c index be06acac7a..76b6281441 100644 --- a/universal.c +++ b/universal.c @@ -165,7 +165,7 @@ Perl_sv_derived_from_pvn(pTHX_ SV *sv, const char *const name, const STRLEN len, else { stash = gv_stashsv(sv, 0); if (!stash) - stash = gv_stashpv("UNIVERSAL", 0); + stash = gv_stashpvs("UNIVERSAL", 0); } return stash ? isa_lookup(stash, name, len, flags) : FALSE; |