This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test $x=wait under arybase
[perl5.git] / 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;