integrate change#3089 from mainline

tolerate CRs after options

p4raw-link: @3089 on //depot/perl: 1d5472a96cdafb6d0b947d16fd3e5f3ddac8a37b

p4raw-id: //depot/maint-5.005/perl@3090
p4raw-integrated: from //depot/perl@3086 'merge in' perl.c (@3045..)

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index f4092592c6..195ab72d52 100644
--- a/perl.c
+++ b/perl.c
@@ -728,6 +728,9 @@ setuid perl scripts securely.\n");
 	s = argv[0]+1;
       reswitch:
 	switch (*s) {
+#ifndef PERL_STRICT_CR
+	case '\r':
+#endif
 	case ' ':
 	case '0':
 	case 'F':