diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1998-08-07 10:56:01 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-07 22:21:10 +0000 |
| commit | 7dfe3f660cb120466e9c6f9f1b8b1c931d114062 (patch) | |
| tree | 6c6f676a4516426fd786bf56537b550559ccf861 /perl.c | |
| parent | 322422def5902825e69a6575c6ba0ca85b18ea34 (diff) | |
| download | perl-7dfe3f660cb120466e9c6f9f1b8b1c931d114062.tar.gz | |
Fix for command line use of source filters
Message-Id: <9808070856.AA28065@claudius.bfsec.bt.co.uk>
p4raw-id: //depot/maint-5.005/perl@1754
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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; |