Revert #31690, because it can make -x eat arguments. Even if the

next argument happens to be a directory name, changing this does
not seem worthwhile. It's as likely as not to break something.

The many -x users clamouring for consistency must go home
empty-handed, alas.

p4raw-id: //depot/perl@31691

1 files changed, 1 insertions, 6 deletions

diff --git a/perl.c b/perl.c
index 8b43a81ff8..6b027124e8 100644
--- a/perl.c
+++ b/perl.c
@@ -1997,13 +1997,8 @@ 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;