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

[Abhijit Menon-Sen]

Change 31690 by [EMAIL PROTECTED] on 2007/08/08 18:45:34

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

Affected files ...

... //depot/perl/perl.c#817 edit

Differences ...

==== //depot/perl/perl.c#817 (text) ====
Index: perl/perl.c
--- perl/perl.c#816~31635~      2007-07-19 04:42:15.000000000 -0700
+++ perl/perl.c 2007-08-08 11:45:34.000000000 -0700
@@ -1997,8 +1997,13 @@
        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.