tolerate CRs after options

p4raw-id: //depot/perl@3089

diff --git a/perl.c b/perl.c
index bda1498..2eca526 100644 (file)
--- 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':