This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Fix tests and add one more test for the deprecation warning added in last...
authorJesse Vincent <jesse@bestpractical.com>
Wed, 5 May 2010 18:40:45 +0000 (14:40 -0400)
committerJesse Vincent <jesse@bestpractical.com>
Wed, 5 May 2010 18:40:45 +0000 (14:40 -0400)
This reverts commit c4deb7365787eb01845a9d0e371e343169530659.

Zefram asked me to revert this as he's going to be doing something more
pluggable

t/lib/warnings/toke

index 81cf246..914c988 100644 (file)
@@ -962,17 +962,16 @@ Use of := for an empty attribute list is deprecated at - line 41.
 Use of := for an empty attribute list is deprecated at - line 42.
 ########
 # toke.c
-use warnings 'deprecated';
+use warnings 'deprecation';
 my $a = 0123.456;
 my $b = 0x123.456;
 my $c = 0b101.010;
-my $d = 0123 . 456;
-no warnings 'deprecated';
-my $e = 0765.432;
+no warnings 'deprecation';
+my $d = 0765.432;
 EXPECT
-Dot after octal literal is concatenation at - line 3.
-Dot after hexadecimal literal is concatenation at - line 4.
-Dot after binary literal is concatenation at - line 5.
+Dot after octal literal is concatenation at - line 1.
+Dot after hex literal is concatenation at - line 2.
+Dot after binary literal is concatenation at - line 3.
 ########
 # toke.c
 use warnings;