From 3a6b4f26fcdea2b27dd79e9bbc06f16aecbe28a5 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 4 Dec 2013 06:12:56 -0800
Subject: [PATCH] t/uni/variables.t: Skip $[ test under miniperl

---
 t/uni/variables.t | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/t/uni/variables.t b/t/uni/variables.t
index c8e6c8c..d802a0a 100644
--- a/t/uni/variables.t
+++ b/t/uni/variables.t
@@ -55,6 +55,8 @@ plan (tests => 65880);
 
 # Checking that at least some of the special variables work
 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";
@@ -62,6 +64,7 @@ for my $v (qw( ^V ; < > ( ) {^GLOBAL_PHASE} ^W _ 1 4 0 [ ] ! @ / \ = )) {
     local $@;
     eval "use utf8; \$$v;";
     is $@, '', "No syntax error for \$$v under use utf8";
+  }
 }
 
 # Checking if the Latin-1 range behaves as expected, and that the behavior is the
-- 
2.7.4