Perlito5 - typeglob vs. import behaviour investigation

fglock · Oct 14, 2014 · 89bf744 · 89bf744
1 parent ef7a08d
commit 89bf744
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/misc/typeglob/import.pl b/misc/typeglob/import.pl
@@ -16,7 +16,7 @@ package Y;
 # BEGIN { my $x; *X::v = \$x; }
 
 # my $x; *X::v = \$x;
-sub imp { my $x; *X::v = \$x; }
+# sub imp { my $x; *X::v = \$x; }
 
 package X;
 use strict;
@@ -26,8 +26,12 @@ package X;
 # BEGIN { require "import.pm"; import::import( "import" ); }
 # BEGIN { require "import.pm"; import::export( "import" ); }
 # BEGIN { my $x; *X::v = \$x; }
+# sub imp { my $x; *X::v = \$x; }
 
-BEGIN { Y::imp() }
+BEGIN { 
+    package Y;
+    my $x; *X::v = \$x;
+}
 
 # Y::imp();