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:
322422d
)
Fix for command line use of source filters
author
Paul Marquess
<paul.marquess@btinternet.com>
Fri, 7 Aug 1998 09:56:01 +0000
(10:56 +0100)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Fri, 7 Aug 1998 22:21:10 +0000
(22:21 +0000)
Message-Id: <
9808070856
.AA28065@claudius.bfsec.bt.co.uk>
p4raw-id: //depot/maint-5.005/perl@1754
perl.c
patch
|
blob
|
history
diff --git
a/perl.c
b/perl.c
index
26653a3
..
e76d83a
100644
(file)
--- a/
perl.c
+++ b/
perl.c
@@
-2971,8
+2971,10
@@
read_e_script(int idx, SV *buf_sv, int maxlen)
p = SvPVX(PL_e_script);
nl = strchr(p, '\n');
nl = (nl) ? nl+1 : SvEND(PL_e_script);
- if (nl-p == 0)
+ if (nl-p == 0) {
+ filter_del(read_e_script);
return 0;
+ }
sv_catpvn(buf_sv, p, nl-p);
sv_chop(PL_e_script, nl);
return 1;