From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 3 Sep 2007 17:11:02 +0000 (+0000)
Subject: Deprecate the -P switch.
X-Git-Tag: accepted/trunk/20130322.191538~14697
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6cccac84e4a5aba4588a786a760c1178aedf8a6b;p=platform%2Fupstream%2Fperl.git

Deprecate the -P switch.

p4raw-id: //depot/perl@31787
---

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