B::Deparse doesn't grok private subroutine variables

While being my crazy old self, and writing strtok() in Perl for the hell
of it, I came across this unhappiness in Deparse:

  {
    my $foo = 10;
    sub bar { print $foo }
  }

deparses to:

    sub bar {
        print $foo;
    }
    {
        my $foo = 10;
    }

This is most undesir[e]able.

-- 
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve             japhy@pobox.com
http://www.pobox.com/~japhy/                  http://pinyaj.stu.rpi.edu/
PerlMonth - An Online Perl Magazine            http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc.    http://www.perlarchive.com/

• B::Deparse doesn't grok private subroutine variables by Jeff Pinyan