Change 31691 by [EMAIL PROTECTED] on 2007/08/08 21:58:29
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.
Affected files ...
... //depot/perl/perl.c#818 edit
Differences ...
==== //depot/perl/perl.c#818 (text) ====
Index: perl/perl.c
--- perl/perl.c#817~31690~ 2007-08-08 11:45:34.000000000 -0700
+++ perl/perl.c 2007-08-08 14:58:29.000000000 -0700
@@ -1997,13 +1997,8 @@
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;
End of Patch.
