diff options
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'; |