Filter patch to toke.c:

	Subject: Tiny core patch for source filters

p4raw-id: //depot/perl@273

1 files changed, 2 insertions, 3 deletions

diff --git a/toke.c b/toke.c
index 00825b2e90..de31a41dd3 100644
--- a/toke.c
+++ b/toke.c
@@ -1109,9 +1109,8 @@ filter_del(filter_t funcp)
     if (!rsfp_filters || AvFILL(rsfp_filters)<0)
 	return;
     /* if filter is on top of stack (usual case) just pop it off */
-    if (IoDIRP(FILTER_DATA(0)) == (void*)funcp){
-	/* sv_free(av_pop(rsfp_filters)); */
-	sv_free(av_shift(rsfp_filters));
+    if (IoDIRP(FILTER_DATA(AvFILL(rsfp_filters))) == (void*)funcp){
+	sv_free(av_pop(rsfp_filters));
 
         return;
     }