Revert "tweak "0x123.456" deprecation"

This reverts commit 1183a10042af0734ee65e252f15bd820b7bbe686.

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

3 files changed, 4 insertions, 40 deletions

diff --git a/t/comp/binary_num.t b/t/comp/binary_num.t
deleted file mode 100644
index 91fb00197b..0000000000
--- a/t/comp/binary_num.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!./perl
-
-print "1..30\n";
-my $test_num = 0;
-sub ok {
-       print $_[0] ? "" : "not ", "ok ", ++$test_num, "\n";
-}
-
-sub do_test {
-    my($src, $expect_value, $match_warning) = @_;
-    my($value, $warning);
-    local $SIG{__WARN__} = sub { $warning .= $_[0] };
-    $value = eval($src);
-    ok defined($expect_value) ? $value == $expect_value : !defined($value);
-    ok $warning =~ $match_warning;
-}
-
-do_test "0x123", 291, qr/\A\z/;
-do_test "0x123.8", 2918, qr/\ADot after hexadecimal literal is deprecated /;
-do_test "0x123 .8", 2918, qr/\A\z/;
-do_test "0x123. 8", 2918, qr/\ADot after hexadecimal literal is deprecated /;
-do_test "[0x123..8] && 5", 5, qr/\A\z/;
-
-do_test "0123", 83, qr/\A\z/;
-do_test "0123.4", 834, qr/\ADot after octal literal is deprecated /;
-do_test "0123 .4", 834, qr/\A\z/;
-do_test "0123. 4", 834, qr/\ADot after octal literal is deprecated /;
-do_test "[0123..4] && 5", 5, qr/\A\z/;
-
-do_test "0b101", 5, qr/\A\z/;
-do_test "0b101.1", 51, qr/\ADot after binary literal is deprecated /;
-do_test "0b101 .1", 51, qr/\A\z/;
-do_test "0b101. 1", 51, qr/\ADot after binary literal is deprecated /;
-do_test "[0b101..1] && 5", 5, qr/\A\z/;
-
-1;
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index ae097de28b..81cf246de7 100644
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -970,9 +970,9 @@ my $d = 0123 . 456;
 no warnings 'deprecated';
 my $e = 0765.432;
 EXPECT
-Dot after octal literal is deprecated concatenation at - line 3.
-Dot after hexadecimal literal is deprecated concatenation at - line 4.
-Dot after binary literal is deprecated concatenation at - line 5.
+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.
 ########
 # toke.c
 use warnings;
diff --git a/t/op/taint.t b/t/op/taint.t
index 8aeaea1756..e3a5712913 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -393,7 +393,7 @@ SKIP: {
 
 # Operations which affect directories can't use tainted data.
 {
-    test !eval { mkdir "foo".$TAINT, (0755).$TAINT0 }, 'mkdir';
+    test !eval { mkdir "foo".$TAINT, 0755.$TAINT0 }, 'mkdir';
     test $@ =~ /^Insecure dependency/, $@;
 
     test !eval { rmdir $TAINT }, 'rmdir';