From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 6 Mar 1999 04:30:40 +0000 (+0000)
Subject: tolerate CRs after options
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d5472a96cdafb6d0b947d16fd3e5f3ddac8a37b;p=p5sagit%2Fp5-mst-13.2.git

tolerate CRs after options

p4raw-id: //depot/perl@3089
---

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