This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make $/=-1 warning default like other dep warnings
authorFather Chrysostomos <sprout@cpan.org>
Sat, 15 Nov 2014 02:16:18 +0000 (18:16 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 15 Nov 2014 04:07:55 +0000 (20:07 -0800)
mg.c
pod/perldiag.pod
t/lib/warnings/mg

diff --git a/mg.c b/mg.c
index 4524d01..c49b146 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2791,7 +2791,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
                     IV val= SvIV(referent);
                     if (val <= 0) {
                         tmpsv= &PL_sv_undef;
-                        Perl_ck_warner(aTHX_ packWARN(WARN_DEPRECATED),
+                        Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED),
                             "Setting $/ to a reference to %s as a form of slurp is deprecated, treating as undef",
                             SvIV(SvRV(sv)) < 0 ? "a negative integer" : "zero"
                         );
index 0db7123..3ba649f 100644 (file)
@@ -5222,7 +5222,7 @@ L<perlfunc/setsockopt>.
 
 =item Setting $/ to a reference to %s as a form of slurp is deprecated, treating as undef
 
-(W deprecated) You assigned a reference to a scalar to C<$/> where the
+(D deprecated) You assigned a reference to a scalar to C<$/> where the
 referenced item is not a positive integer.  In older perls this B<appeared>
 to work the same as setting it to C<undef> but was in fact internally
 different, less efficient and with very bad luck could have resulted in
index d14fbfe..348f9b2 100644 (file)
@@ -33,6 +33,12 @@ $/ = \-1;
 EXPECT
 Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef at - line 3.
 ########
+$/ = \-1;
+no warnings 'deprecated';
+$/ = \-1;
+EXPECT
+Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef at - line 1.
+########
 # mg.c
 use warnings 'signal' ;
 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {