Re: [perl #44969] Restricted hashes do not handle private fields properly

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 8b43a81..508fb56 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1787,6 +1787,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
            forbid_setid('P', -1);
            PL_preprocess = TRUE;
            s++;
+           deprecate("-P");
            goto reswitch;
        case 'S':
            forbid_setid('S', -1);
@@ -1997,13 +1998,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;