From: Abhijit Menon-Sen <ams@wiw.org>
Date: Wed, 8 Aug 2007 18:45:34 +0000 (+0000)
Subject: Make '-xx' and '-x x' work the same way (see #44387).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76c95dfe0d56de513d034510a89f3818a41be573;p=p5sagit%2Fp5-mst-13.2.git

Make '-xx' and '-x x' work the same way (see #44387).

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

diff --git a/perl.c b/perl.c
index 6b02712..8b43a81 100644
--- a/perl.c
+++ b/perl.c
@@ -1997,8 +1997,13 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 	case 'x':
 	    PL_doextract = TRUE;
 	    s++;
-	    if (*s)
+	    if (*s) {
 		cddir = s;
+	    }
+	    else if ((s=argv[1]) && *s != '-') {
+		argc--,argv++;
+		cddir = s;
+	    }
 	    break;
 	case 0:
 	    break;