tolerate CRs after options

p4raw-id: //depot/perl@3089

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index bda1498b3e..2eca5267b0 100644
--- a/perl.c
+++ b/perl.c
@@ -732,6 +732,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':