properly restore PL_rsfp_filters after require

p4raw-id: //depot/perl@2051

1 files changed, 2 insertions, 4 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 04efce653b..f5b45b33d1 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2697,10 +2697,8 @@ PP(pp_require)
     ENTER;
     SAVETMPS;
     lex_start(sv_2mortal(newSVpv("",0)));
-    if (PL_rsfp_filters){
- 	save_aptr(&PL_rsfp_filters);
-	PL_rsfp_filters = NULL;
-    }
+    SAVEGENERICSV(PL_rsfp_filters);
+    PL_rsfp_filters = Nullav;
 
     PL_rsfp = tryrsfp;
     name = savepv(name);