This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test $x=wait under arybase
authorFather Chrysostomos <sprout@cpan.org>
Thu, 27 Oct 2011 01:05:25 +0000 (18:05 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 27 Oct 2011 03:16:58 +0000 (20:16 -0700)
ext/arybase/t/arybase.t

index 230ee7e..a7edaf4 100644 (file)
@@ -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;