diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-10-26 18:05:25 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-26 20:16:58 -0700 |
| commit | 41e1edf564ba7bc3c29e7e77dfc506fc40668b7a (patch) | |
| tree | 68d91b0bf94c399ec68f27a25633b84333a7b272 | |
| parent | 02523b6e704bc628e99f1b8739226559c7181e42 (diff) | |
| download | perl-41e1edf564ba7bc3c29e7e77dfc506fc40668b7a.tar.gz | |
Test $x=wait under arybase
| -rw-r--r-- | ext/arybase/t/arybase.t | 3 |
1 files changed, 3 insertions, 0 deletions
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; |