[win32] merge change#1011 from maintbranch

p4raw-link: @1011 on //depot/maint-5.004/perl: b1b8a6f107d7c2d590be5dde4bedaf8d36872c82

p4raw-id: //depot/win32/perl@1027

1 files changed, 0 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index fe00dcf206..146367ddc4 100644
--- a/perl.c
+++ b/perl.c
@@ -2173,7 +2173,6 @@ static I32
 read_e_script(int idx, SV *buf_sv, int maxlen)
 {
     char *p, *nl;
-    FILTER_READ(idx+1, buf_sv, maxlen);
     p  = SvPVX(e_script);
     nl = strchr(p, '\n');
     nl = (nl) ? nl+1 : SvEND(e_script);