diff options
Diffstat (limited to 'contrib/perl5/lib/vars.pm')
| -rw-r--r-- | contrib/perl5/lib/vars.pm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/contrib/perl5/lib/vars.pm b/contrib/perl5/lib/vars.pm index 334af9630ada..bde0b2a0e8c2 100644 --- a/contrib/perl5/lib/vars.pm +++ b/contrib/perl5/lib/vars.pm @@ -8,13 +8,14 @@ require 5.002; # if Carp hasn't been loaded in earlier compile time. :-( # We'll let those bugs get found on the development track. require Carp if $] < 5.00450; +use warnings::register(); sub import { my $callpack = caller; my ($pack, @imports, $sym, $ch) = @_; foreach $sym (@imports) { ($ch, $sym) = unpack('a1a*', $sym); - if ($sym =~ tr/A-Za-Z_0-9//c) { + if ($sym =~ tr/A-Za-z_0-9//c) { # time for a more-detailed check-up if ($sym =~ /::/) { require Carp; @@ -22,9 +23,8 @@ sub import { } elsif ($sym =~ /^\w+[[{].*[]}]$/) { require Carp; Carp::croak("Can't declare individual elements of hash or array"); - } elsif ($^W and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { - require Carp; - Carp::carp("No need to declare built-in vars"); + } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { + warnings::warn("No need to declare built-in vars"); } } *{"${callpack}::$sym"} = @@ -45,7 +45,7 @@ __END__ =head1 NAME -vars - Perl pragma to predeclare global variable names +vars - Perl pragma to predeclare global variable names (obsolete) =head1 SYNOPSIS @@ -53,6 +53,10 @@ vars - Perl pragma to predeclare global variable names =head1 DESCRIPTION +NOTE: The functionality provided by this pragma has been superseded +by C<our> declarations, available in Perl v5.6.0 or later. See +L<perlfunc/our>. + This will predeclare all the variables whose names are in the list, allowing you to use them under "use strict", and disabling any typo warnings. |