POSIX math: s = "0" is not happy with -Wwrite-strings.

[perl5.git] / lib / subs.pm

diff --git a/lib/subs.pm b/lib/subs.pm
index 84c913a..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
@@ -15,16 +17,22 @@ This will predeclare all the subroutine whose names are
 in the list, allowing you to use them without parentheses
 even before they're declared.
 
-See L<perlmod/Pragmatic Modules> and L<strict/subs>.
+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 package in which they appear.  You may not rescind such
+declarations with C<no vars> or C<no subs>.
+
+See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
 
 =cut
+
 require 5.000;
 
 sub import {
     my $callpack = caller;
     my $pack = shift;
     my @imports = @_;
-    foreach $sym (@imports) {
+    foreach my $sym (@imports) {
        *{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
     }
 };