From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 11 Jul 2007 19:31:40 +0000 (+0000)
Subject: Turn the "$# / $* is no longer supported" warnings into
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fafcdf9e12935d93b4cd9172ce7cd496485ba41b;p=p5sagit%2Fp5-mst-13.2.git

Turn the "$# / $* is no longer supported" warnings into
severe warnings (as suggested by Audrey Tang)

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

diff --git a/gv.c b/gv.c
index 9751afa..3b7dfd3 100644
--- a/gv.c
+++ b/gv.c
@@ -1230,7 +1230,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 	}
 	case '*':
 	case '#':
-	    if (sv_type == SVt_PV && ckWARN2(WARN_DEPRECATED, WARN_SYNTAX))
+	    if (sv_type == SVt_PV && ckWARN2_d(WARN_DEPRECATED, WARN_SYNTAX))
 		Perl_warner(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX),
 			    "$%c is no longer supported", *name);
 	    break;
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 338fd12..c91f905 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -2177,13 +2177,13 @@ neither as a system call or an ioctl call (SIOCATMARK).
 
 =item $* is no longer supported
 
-(D deprecated) The special variable C<$*>, deprecated in older perls, has
+(S deprecated, syntax) The special variable C<$*>, deprecated in older perls, has
 been removed as of 5.9.0 and is no longer supported. You should use the
 C<//m> and C<//s> regexp modifiers instead.
 
 =item $# is no longer supported
 
-(D deprecated) The special variable C<$#>, deprecated in older perls, has
+(S deprecated, syntax) The special variable C<$#>, deprecated in older perls, has
 been removed as of 5.9.3 and is no longer supported. You should use the
 printf/sprintf functions instead.
 
diff --git a/t/lib/warnings/gv b/t/lib/warnings/gv
index 17ab2f0..42565f2 100644
--- a/t/lib/warnings/gv
+++ b/t/lib/warnings/gv
@@ -43,12 +43,11 @@ EXPECT
 Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5.
 ########
 # gv.c
-use warnings 'deprecated' ;
 $a = ${"#"};
 $a = ${"*"};
 no warnings 'deprecated' ;
 $a = ${"#"};
 $a = ${"*"};
 EXPECT
-$# is no longer supported at - line 3.
-$* is no longer supported at - line 4.
+$# is no longer supported at - line 2.
+$* is no longer supported at - line 3.