in reply to Re: Re: Re: Re: Re: Regex Capturing: Is this a bug or a feature?
in thread Regex Capturing: Is this a bug or a feature?
#!/usr/bin/perl use strict; use warnings; use vars qw ($PackageVar); use B::Deparse; my $deparse = B::Deparse->new("-p", "-sC"); my $body = $deparse->coderef2text(\<est); print $body; ########################## sub ltest { $PackageVar = 0; for(1..10){ local $PackageVar = 0; print ++$PackageVar,"\n"; } } __END__ # Says B:Deparse { ($PackageVar = 0); foreach $_ (1 .. 10) { (local $PackageVar = 0); print((++$PackageVar), "\n"); } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re(6): Regex Capturing: Is this a bug or a feature?
by Anonymous Monk on Sep 30, 2002 at 21:30 UTC | |
by shotgunefx (Parson) on Sep 30, 2002 at 22:30 UTC |