X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=838fab0c7cfd79dfa807c6473311439894f7a872;hp=ef92fa178aab2f41bef787150aae2aec7b6ffca1;hb=1757c35d2d60dd9b52dcbd5af09679cfdaeb1740;hpb=84483a1d32823197ca6c6dcb5e839e8d5650e9e4

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index ef92fa1..838fab0 100644
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -446,12 +446,11 @@ sub pp_rv2av {
  my ($self, $op) = @_;
  $op = $op->first;
 
- my ($r, $l) = $self->inspect($op);
- if (name($op) ne 'const') {
-  my $c = 1 - count $r;
-  $l = $c ? { list => $c } : 0;
+ if (name($op) eq 'gv') {
+  return undef, { list => 1 };
  }
- return $r, $l; 
+
+ $self->inspect($op);
 }
 
 sub pp_aassign {