Changeset b441079 for perlwrap.pm

Timestamp:

May 30, 2008, 12:41:31 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, 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:

• perlwrap.pm (modified) (2 diffs)

perlwrap.pm

@@ -1023 +1023 @@
     my $fn   = shift;
     {
+        # For historical reasons, assume unqualified references are
+        # in main::
+        package main;
         no strict 'refs';
         unless(*{$fn}{CODE}) {
@@ -1055 +1058 @@
         $_[0]->legacy_populate_global();
     }
-    no strict 'refs';
-    goto \&{$self->{function}};
+    {
+      package main;
+      no strict 'refs';
+      goto \&{$self->{function}};
+    }
 }