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: [PATCH] Deprecate the -P switch.

p4raw-id: //depot/perl@31787
---
 perl.c          | 1 +
 pod/perlrun.pod | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index 6b02712..508fb56 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);
diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index 2d78097..43c8719 100644
--- a/pod/perlrun.pod
+++ b/pod/perlrun.pod
@@ -699,7 +699,8 @@ the implicit loop, just as in B<awk>.
 X<-P>
 
 B<NOTE: Use of -P is strongly discouraged because of its inherent
-problems, including poor portability.>
+problems, including poor portability. It is deprecated and will be
+removed in a future version of Perl.>
 
 This option causes your program to be run through the C preprocessor before
 compilation by Perl.  Because both comments and B<cpp> directives begin
-- 
2.7.4