Displaying implicit $_ usage with B::Deparse

Taken the following code using B::Deparse can insert the missing @_
and @ARGV after the shift.

my $filename = shift;
sub foo {
   my $x = shift;
}


On the other hand in the following examples it did not insert the implicitly
used $_:

if ($line = /something/) {
}

foreach (@arr) {
   if (/abc/) {
      print;
   }
}


Would it be possible to add that as an optional feature of B::Deparse?


Gabor

• Displaying implicit $_ usage with B::Deparse by Gabor Szabo
• Re: Displaying implicit $_ usage with B::Deparse by Rafael Garcia-Suarez
• Re: Displaying implicit $_ usage with B::Deparse by Yitzchak Scott-Thoennes
• Re: Displaying implicit $_ usage with B::Deparse by Joshua ben Jore