From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 16 Apr 2003 13:27:24 +0000 (+0000)
Subject: A -C parsed from the #! line can still have line endings in it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c91f47780c6b4923bae37d60b9019a6a770cdf2;p=p5sagit%2Fp5-mst-13.2.git

A -C parsed from the #! line can still have line endings in it.

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

diff --git a/util.c b/util.c
index 40abb48..1f1c6fc 100644
--- a/util.c
+++ b/util.c
@@ -4324,7 +4324,7 @@ Perl_parse_unicode_opts(pTHX_ char **popt)
        if (isDIGIT(*p)) {
 	    opt = (U32) atoi(p);
 	    while (isDIGIT(*p)) p++;
-	    if (*p)
+	    if (*p && *p != '\n' && *p != '\r')
 		 Perl_croak(aTHX_ "Unknown Unicode option letter '%c'", *p);
        }
        else {
@@ -4349,8 +4349,9 @@ Perl_parse_unicode_opts(pTHX_ char **popt)
 		 case PERL_UNICODE_ARGV:
 		      opt |= PERL_UNICODE_ARGV_FLAG;	break;
 		 default:
-		      Perl_croak(aTHX_
-				 "Unknown Unicode option letter '%c'", *p);
+		      if (*p != '\n' && *p != '\r')
+			  Perl_croak(aTHX_
+				     "Unknown Unicode option letter '%c'", *p);
 		 }
 	    }
        }