diff options
author | Nicholas Clark <nick@ccl4.org> | 2021-04-26 11:23:33 +0000 |
---|---|---|
committer | Ricardo Signes <rjbs@semiotic.systems> | 2021-10-15 09:28:27 -0400 |
commit | bf6e71ff82686b1287ef59c1565cc669d5301cc5 (patch) | |
tree | c55666c8154d75867ccb36a1ffe3a59f8b60de0b /lib/B/Deparse.t | |
parent | c386ecc10be9e73917fa6b819321f0cc47cacdb6 (diff) | |
download | perl-bf6e71ff82686b1287ef59c1565cc669d5301cc5.tar.gz |
B::Deparse now handles n-at-a-time for.
Diffstat (limited to 'lib/B/Deparse.t')
-rw-r--r-- | lib/B/Deparse.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index 3904773655..385c63ae7a 100644 --- 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 |