In Perl_filter_del(), no need to NULL IoANY(datasv).

Perl_sv_clear() understands the IOf_FAKE_DIRP flag, and when set won't treat
IoANY() as a a pointer to a directory handle that needs closing.

1 files changed, 0 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index 7da7ab9469..ac00450398 100644
--- a/toke.c
+++ b/toke.c
@@ -3757,8 +3757,6 @@ Perl_filter_del(pTHX_ filter_t funcp)
     /* if filter is on top of stack (usual case) just pop it off */
     datasv = FILTER_DATA(AvFILLp(PL_rsfp_filters));
     if (IoANY(datasv) == FPTR2DPTR(void *, funcp)) {
-	IoFLAGS(datasv) &= ~IOf_FAKE_DIRP;
-	IoANY(datasv) = (void *)NULL;
 	sv_free(av_pop(PL_rsfp_filters));
 
         return;