From 740b05c930b47b449fa2e020ede274069835b0bd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 12:01:32 +0000
Subject: - perl_checker: cleaner, more usable (via .perl_checker for
 -exclude's) - perl_checker: more stricter syntax rules - adapt *.pm's to
 those rules

---
 MDK/Common/Globals.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'MDK/Common/Globals.pm')

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';
-- 
cgit v1.2.1