diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2017-10-18 01:01:11 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2018-09-26 13:00:19 +0100 |
commit | c22e17d0af032be4fb2cd747c9bb7a7622e3ba64 (patch) | |
tree | 9781a06bc165ea4ee0c1148a07e0d551ada81a4d /t/uni | |
parent | b48c08b9845692aded457ece78aa7d05316e9be3 (diff) | |
download | perl-c22e17d0af032be4fb2cd747c9bb7a7622e3ba64.tar.gz |
Remove support for setting $[ to a non-zero value
This removes arybase and all its surrounding machinery.
Diffstat (limited to 't/uni')
-rw-r--r-- | t/uni/variables.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/t/uni/variables.t b/t/uni/variables.t index a1f7cc2d00..852ecaab0c 100644 --- a/t/uni/variables.t +++ b/t/uni/variables.t @@ -6,7 +6,6 @@ BEGIN { chdir 't' if -d 't'; require './test.pl'; - skip_all_if_miniperl("miniperl, no arybase"); skip_all_without_unicode_tables(); } @@ -15,7 +14,7 @@ use utf8; use open qw( :utf8 :std ); no warnings qw(misc reserved); -plan (tests => 66894); +plan (tests => 66892); # ${single:colon} should not be treated as a simple variable, but as a # block with a label inside. @@ -56,9 +55,8 @@ plan (tests => 66894); } # Checking that at least some of the special variables work -for my $v (qw( ^V ; < > ( ) {^GLOBAL_PHASE} ^W _ 1 4 0 [ ] ! @ / \ = )) { +for my $v (qw( ^V ; < > ( ) {^GLOBAL_PHASE} ^W _ 1 4 0 ] ! @ / \ = )) { SKIP: { - skip_if_miniperl('No $[ under miniperl', 2) if $v eq '['; local $@; evalbytes "\$$v;"; is $@, '', "No syntax error for \$$v"; |