Changeset b441079 for perlwrap.pm


Ignore:
Timestamp:
May 30, 2008, 12:41:31 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
1d2c4c3
Parents:
8af89a7
Message:
Make the 'style' command assume the main:: package for unqualified
subroutine references. Reported by Jesse Vincent.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    r6b3878b rb441079  
    10231023    my $fn   = shift;
    10241024    {
     1025        # For historical reasons, assume unqualified references are
     1026        # in main::
     1027        package main;
    10251028        no strict 'refs';
    10261029        unless(*{$fn}{CODE}) {
     
    10551058        $_[0]->legacy_populate_global();
    10561059    }
    1057     no strict 'refs';
    1058     goto \&{$self->{function}};
     1060    {
     1061      package main;
     1062      no strict 'refs';
     1063      goto \&{$self->{function}};
     1064    }
    10591065}
    10601066
Note: See TracChangeset for help on using the changeset viewer.