From 6cccac84e4a5aba4588a786a760c1178aedf8a6b Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 3 Sep 2007 17:11:02 +0000
Subject: Deprecate the -P switch.

p4raw-id: //depot/perl@31787
---
 perl.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl.c')

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);
-- 
cgit v1.2.1