summaryrefslogtreecommitdiff
path: root/t/uni
diff options
context:
space:
mode:
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2017-10-18 01:01:11 +0100
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2018-09-26 13:00:19 +0100
commitc22e17d0af032be4fb2cd747c9bb7a7622e3ba64 (patch)
tree9781a06bc165ea4ee0c1148a07e0d551ada81a4d /t/uni
parentb48c08b9845692aded457ece78aa7d05316e9be3 (diff)
downloadperl-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.t6
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";