summaryrefslogtreecommitdiff
path: root/dist/B-Deparse
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-11-04 11:33:12 +0000
committerNicholas Clark <nick@ccl4.org>2009-11-04 11:33:12 +0000
commitd83f38d8facaed626f27ae5d9f0f66709664dc5e (patch)
treeed3341f90e73653352b8bc4c1b235cd2d5077daf /dist/B-Deparse
parent2b6765935f5ee68d8093e686b8e292ad5de5a898 (diff)
downloadperl-d83f38d8facaed626f27ae5d9f0f66709664dc5e.tar.gz
Deprecate use of := to mean an empty attribute list in my $pi := 4;
An accident of Perl's parser meant that my $pi := 4; was parsed as an empty attribute list. Empty attribute lists are ignored, hence the above is equivalent to my $pi = 4; However, the fact that it is currently valid syntax means that := cannot be used as new token, without silently changing the meaning of existing code. Hence it is now deprecated, so that it can subsequently be removed, allowing the possibility of := to be used as a new token with new semantics.
Diffstat (limited to 'dist/B-Deparse')
-rw-r--r--dist/B-Deparse/t/deparse.t14
1 files changed, 13 insertions, 1 deletions
diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t
index c9c92f9ca8..12879fc5cb 100644
--- a/dist/B-Deparse/t/deparse.t
+++ b/dist/B-Deparse/t/deparse.t
@@ -17,7 +17,7 @@ BEGIN {
require feature;
feature->import(':5.10');
}
-use Test::More tests => 78;
+use Test::More tests => 81;
use Config ();
use B::Deparse;
@@ -591,3 +591,15 @@ foreach (0..3) {
print ++$x, "\n";
}
}
+####
+my $pi = 4;
+####
+no warnings;
+my $pi := 4;
+>>>>
+no warnings;
+my $pi = 4;
+####
+my $pi : = 4;
+>>>>
+my $pi = 4;