diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 12:01:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 12:01:32 +0000 |
commit | 740b05c930b47b449fa2e020ede274069835b0bd (patch) | |
tree | da83a5477764d3b899d70a8c760fce3413a6f3cc /MDK/Common/Globals.pm | |
parent | 30da5605a4f2e7c6ffa7b54c7d486e5b83a8e25d (diff) | |
download | perl_checker-740b05c930b47b449fa2e020ede274069835b0bd.tar perl_checker-740b05c930b47b449fa2e020ede274069835b0bd.tar.gz perl_checker-740b05c930b47b449fa2e020ede274069835b0bd.tar.bz2 perl_checker-740b05c930b47b449fa2e020ede274069835b0bd.tar.xz perl_checker-740b05c930b47b449fa2e020ede274069835b0bd.zip |
- perl_checker: cleaner, more usable (via .perl_checker for -exclude's)
- perl_checker: more stricter syntax rules
- adapt *.pm's to those rules
Diffstat (limited to 'MDK/Common/Globals.pm')
-rw-r--r-- | MDK/Common/Globals.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/MDK/Common/Globals.pm b/MDK/Common/Globals.pm index 15ca219..1bda892 100644 --- a/MDK/Common/Globals.pm +++ b/MDK/Common/Globals.pm @@ -1,3 +1,5 @@ +package MDK::Common::Globals; + =head1 NAME Shares constant values between modules @@ -13,12 +15,10 @@ Shares constant values between modules =cut -package MDK::Common::Globals; - sub import { my (undef, $name, @globals) = @_; foreach (@globals) { - $name =~ /^\$/ and die q(usage : use MDK::Common::Globals "group", qw($var1 $var2 ...);); + $name =~ /^\$/ and die qq(usage : use MDK::Common::Globals "group", qw(\$var1 \$var2 ...);\n); s/^\$// or die qq(bad parameter to "use MDK::Common::Globals": missing variable ``$_'' should be written ``\$$_''); #); no strict 'refs'; |