From 60ce6247fb34169ad0a0e9bbab7a376ec9f7f2ff Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 20 May 1998 15:02:21 +0000 Subject: [win32] remove strupr() from perl.c p4raw-id: //depot/win32/perl@1021 --- perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index e02786ef0f..fe00dcf206 100644 --- a/perl.c +++ b/perl.c @@ -2429,7 +2429,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); -- cgit v1.2.1 From cca87523cf2ee6eb48a8a0b1a57f8bea2c4b1915 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 23 May 1998 18:02:21 +0000 Subject: [win32] merge change#1011 from maintbranch p4raw-link: @1011 on //depot/maint-5.004/perl: b1b8a6f107d7c2d590be5dde4bedaf8d36872c82 p4raw-id: //depot/win32/perl@1027 --- perl.c | 1 - 1 file changed, 1 deletion(-) (limited to 'perl.c') 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); -- cgit v1.2.1