projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
eb1cfdd
)
Filter patch to toke.c:
author
Paul Marquess
<paul.marquess@btinternet.com>
Thu, 20 Nov 1997 23:12:09 +0000
(23:12 +0000)
committer
Malcolm 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
patch
|
blob
|
history
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;
}