From 41e1edf564ba7bc3c29e7e77dfc506fc40668b7a Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 26 Oct 2011 18:05:25 -0700
Subject: Test $x=wait under arybase

---
 ext/arybase/t/arybase.t | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ext/arybase/t/arybase.t b/ext/arybase/t/arybase.t
index 230ee7e007..a7edaf41bc 100644
--- a/ext/arybase/t/arybase.t
+++ b/ext/arybase/t/arybase.t
@@ -1,6 +1,7 @@
 #!perl
 
 # Basic tests for $[ as a variable
+# plus miscellaneous bug fix tests
 
 use Test::More tests => 7;
 
@@ -30,4 +31,6 @@ eval { my $x = 45; $[ = \$x }; $l = __LINE__;
 is $@, "That use of \$[ is unsupported at $f line $l.\n",
    'error when setting $[ to ref';
 
+sub foo { my $x; $x = wait } # compilation of this routine used to crash
+
 1;
-- 
cgit v1.2.1