diff options
| author | Gerard Goossen <gerard@ggoossen.net> | 2011-08-06 17:50:40 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-08 15:49:45 -0700 |
| commit | 3023b5f30c62e26185b48118c7c84030adb5b623 (patch) | |
| tree | b9d1e004c45ec9433e09894f46dd6cdca71663ea /t | |
| parent | 83f9fced9447634b1f940717275290f7a74ab633 (diff) | |
| download | perl-3023b5f30c62e26185b48118c7c84030adb5b623.tar.gz | |
Change aassign_common_vars to check using the optree without using the linked list.
Besides no longer depending on the op chain this also solves a bug
where the common vars where not detected because of logical operators.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/array.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/array.t b/t/op/array.t index f837e047ed..aec4b30167 100644 --- a/t/op/array.t +++ b/t/op/array.t @@ -428,7 +428,7 @@ sub test_arylen { is("$x $y $z", "1 1 2"); } { - local $TODO = "AASSIGN_COMMON detection with logical operators"; + # AASSIGN_COMMON detection with logical operators my $true = 1; our($x,$y,$z) = (1..3); (our $y, our $z) = $true && ($x,$y); |