diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-05-23 18:42:37 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-23 16:58:04 +0000 |
| commit | 8e3542b6b408b9e409cdf6608e65d34ace8fb91e (patch) | |
| tree | 4cefa5e1177065c33eeb4e2af6633892aba193bf /ext/B | |
| parent | 54cfe9430e7706de0a1d08138e242eb6c92b15c8 (diff) | |
| download | perl-8e3542b6b408b9e409cdf6608e65d34ace8fb91e.tar.gz | |
RE: state of deparse?
Message-ID: <533D273D4014D411AB1D00062938C4D90404653E@hotel.npl.co.uk>
p4raw-id: //depot/perl@19601
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 06d795a2a4..b700650ec6 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -922,6 +922,10 @@ sub maybe_local { if ($op->private & (OPpLVAL_INTRO|$our_intro) and not $self->{'avoid_local'}{$$op}) { my $our_local = ($op->private & OPpLVAL_INTRO) ? "local" : "our"; + if( $our_local eq 'our' ) { + die "Unexpected our($text)\n" unless $text =~ /^\W(\w+::)*\w+\z/; + $text =~ s/(\w+::)+//; + } if (want_scalar($op)) { return "$our_local $text"; } else { |