From 304334dafcf24508b017cfdd22e0883402e1d769 Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Wed, 8 Aug 2007 21:58:29 +0000 Subject: [PATCH] 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 --- perl.c | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/perl.c b/perl.c index 8b43a81..6b02712 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; -- 1.8.3.1