Deprecate the -P switch.

p4raw-id: //depot/perl@31787

1 files changed, 1 insertions, 0 deletions

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