Setting $_ to multiline glob in @INC filter

[perl5.git] / lib / subs.pm

diff --git a/lib/subs.pm b/lib/subs.pm
index 512bc9b..10d6e02 100644 (file)
--- a/lib/subs.pm
+++ b/lib/subs.pm
@@ -1,5 +1,7 @@
 package subs;
 
+our $VERSION = '1.02';
+
 =head1 NAME
 
 subs - Perl pragma to predeclare sub names
@@ -17,10 +19,10 @@ even before they're declared.
 
 Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
 C<use subs> declarations are not BLOCK-scoped.  They are thus effective
-for the entire file in which they appear.  You may not rescind such
+for the entire package in which they appear.  You may not rescind such
 declarations with C<no vars> or C<no subs>.
 
-See L<perlmod/Pragmatic Modules> and L<strict/strict subs>.
+See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
 
 =cut
 
@@ -30,7 +32,7 @@ sub import {
     my $callpack = caller;
     my $pack = shift;
     my @imports = @_;
-    foreach $sym (@imports) {
+    foreach my $sym (@imports) {
        *{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
     }
 };