From a93423d7426bfed436ac64ddcfcde4a0f5e7ad09 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Jun 2005 07:37:47 +0000 Subject: use "our" instead of "use vars" --- perl-install/common.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'perl-install/common.pm') diff --git a/perl-install/common.pm b/perl-install/common.pm index 1ffb5d3cf..1933975e5 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -5,11 +5,10 @@ use MDK::Common::System; use diagnostics; use strict; use run_program; -use vars qw(@ISA @EXPORT $SECTORSIZE); -@ISA = qw(Exporter); -# no need to export ``_'' -@EXPORT = qw($SECTORSIZE N N_ check_for_xserver files_exist formatTime formatXiB is_xbox makedev mandrake_release removeXiBSuffix require_root_capability salt setVirtual set_alternative set_l10n_sort set_permissions translate unmakedev); +use Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw($SECTORSIZE N N_ check_for_xserver files_exist formatTime formatXiB is_xbox makedev mandrake_release removeXiBSuffix require_root_capability salt setVirtual set_alternative set_l10n_sort set_permissions translate unmakedev); # perl_checker: RE-EXPORT-ALL push @EXPORT, @MDK::Common::EXPORT; -- cgit v1.2.1