This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Filter patch to toke.c:
authorPaul Marquess <paul.marquess@btinternet.com>
Thu, 20 Nov 1997 23:12:09 +0000 (23:12 +0000)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Fri, 21 Nov 1997 10:31:29 +0000 (10:31 +0000)
Subject: Tiny core patch for source filters

p4raw-id: //depot/perl@273

toke.c

diff --git a/toke.c b/toke.c
index 00825b2..de31a41 100644 (file)
--- 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;
     }