X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_ctl.c;h=28b048456d41d71b582cf231621d88a15913cfb5;hb=6ef55633ec162e15cc77d16a7154bf022d691dbc;hp=11554c9486aaa4fd68fd401aec60bcf1e24f0846;hpb=005a8a35ce5b6191102f848d17a5c617740a685c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_ctl.c b/pp_ctl.c
index 11554c9..28b0484 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3150,6 +3150,8 @@ PP(pp_require)
 	    for (i = 0; i <= AvFILL(ar); i++) {
 		SV * const dirsv = *av_fetch(ar, i, TRUE);
 
+		if (SvTIED_mg((SV*)ar, PERL_MAGIC_tied))
+		    mg_get(dirsv);
 		if (SvROK(dirsv)) {
 		    int count;
 		    SV **svp;
@@ -3375,7 +3377,7 @@ PP(pp_require)
 
     ENTER;
     SAVETMPS;
-    lex_start(sv_2mortal(newSVpvs("")));
+    lex_start(NULL);
     SAVEGENERICSV(PL_rsfp_filters);
     PL_rsfp_filters = NULL;