Fix t/op/magic.t failures under Cygwin

[perl5.git] / perl.c

diff --git a/perl.c b/perl.c
index 6b02712..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);