B::Deparse now handles n-at-a-time for.

Perl · Sep 22, 2021 · 8b7aa8e · 8b7aa8e
1 parent 803bb80
commit 8b7aa8e
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 2 deletions.
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
@@ -52,7 +52,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
         MDEREF_SHIFT
     );
 
-$VERSION = '1.58';
+$VERSION = '1.59';
 use strict;
 our $AUTOLOAD;
 use warnings ();
@@ -3954,7 +3954,18 @@ sub loop_common {
 	} else {
 	    $ary = $self->deparse($ary, 1);
 	}
-	if (null $var) {
+        my $iter_targ = $kid->first->first->targ;
+        if ($iter_targ) {
+            # for my ($foo, $bar) () stores the count (less 1) in the targ of
+            # the ITER op.
+            my @vars;
+            my $targ = $enter->targ;
+            while ($iter_targ-- >= 0) {
+                push @vars, $self->padname_sv($targ)->PVX;
+                ++$targ;
+            }
+            $var = 'my (' . join(', ', @vars) . ')';
+        } elsif (null $var) {
             $var = $self->pp_padsv($enter, 1, 1);
 	} elsif ($var->name eq "rv2gv") {
 	    $var = $self->pp_rv2sv($var, 1);

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
@@ -2530,6 +2530,16 @@ foreach \&a (sub { 9; } , sub { 10; } ) {
     die;
 }
 ####
+my %hash;
+foreach my ($key, $value) (%hash) {
+    study $_;
+}
+####
+my @ducks;
+foreach my ($tick, $trick, $track) (@ducks) {
+    study $_;
+}
+####
 # join $foo, pos
 my $foo;
 $_ = join $foo, pos