diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 07:22:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 07:22:51 +0000 |
| commit | d0340efeaf607d2e70273b4fa22e5ee3b358abe8 (patch) | |
| tree | 8187e35c8e61d21279785c869e1a5d92009e8e57 /perl.c | |
| parent | ab39fa9dbf3b1a1fb7beb555653d0558a089397f (diff) | |
| parent | a1737d5b9df80320e5be59ab8fa7c96455d6b5bf (diff) | |
| download | perl-d0340efeaf607d2e70273b4fa22e5ee3b358abe8.tar.gz | |
[asperl] integrate mainline changes
p4raw-id: //depot/asperl@1055
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -2474,7 +2474,7 @@ init_postdump_symbols(register int argc, register char **argv, register char **e if (!(s = strchr(*env,'='))) continue; *s++ = '\0'; -#if defined(WIN32) || defined(MSDOS) +#if defined(MSDOS) (void)strupr(*env); #endif sv = newSVpv(s--,0); @@ -2878,7 +2878,6 @@ read_e_script(int idx, SV *buf_sv, int maxlen) #endif { 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); |