diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-05-27 05:24:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-05-27 05:24:57 +0000 |
| commit | 6628b3608b7c30da683c03d1c18d94706f991db5 (patch) | |
| tree | dd264f20c26c7a3352eb11128b06fb368dbc1f9c /MDK/Common/System.pm | |
| parent | 43750f2338ccfc28518234374c9a0e2af424eb61 (diff) | |
| download | perl-MDK-Common-6628b3608b7c30da683c03d1c18d94706f991db5.tar perl-MDK-Common-6628b3608b7c30da683c03d1c18d94706f991db5.tar.gz perl-MDK-Common-6628b3608b7c30da683c03d1c18d94706f991db5.tar.bz2 perl-MDK-Common-6628b3608b7c30da683c03d1c18d94706f991db5.tar.xz perl-MDK-Common-6628b3608b7c30da683c03d1c18d94706f991db5.zip | |
use "our" instead of "use vars"
Diffstat (limited to 'MDK/Common/System.pm')
| -rw-r--r-- | MDK/Common/System.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index 4ad4aea..0f3dee8 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -177,13 +177,13 @@ L<MDK::Common> use MDK::Common::Math; use MDK::Common::File; -use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK %compat_arch $printable_chars $sizeof_int $bitof_int); #); -@ISA = qw(Exporter); -@EXPORT_OK = qw(%compat_arch $printable_chars $sizeof_int $bitof_int arch distrib typeFromMagic list_passwd list_home list_skels list_users syscall_ psizeof availableMemory availableRamMB gettimeofday unix2dos whereis_binary getVarsFromSh setVarsInSh setVarsInShMode setExportedVarsInSh setExportedVarsInCsh template2file template2userfile read_gnomekderc update_gnomekderc fuzzy_pidofs); #); -%EXPORT_TAGS = (all => [ @EXPORT_OK ]); +use Exporter; +our @ISA = qw(Exporter); +our @EXPORT_OK = qw(%compat_arch $printable_chars $sizeof_int $bitof_int arch distrib typeFromMagic list_passwd list_home list_skels list_users syscall_ psizeof availableMemory availableRamMB gettimeofday unix2dos whereis_binary getVarsFromSh setVarsInSh setVarsInShMode setExportedVarsInSh setExportedVarsInCsh template2file template2userfile read_gnomekderc update_gnomekderc fuzzy_pidofs); #); +our %EXPORT_TAGS = (all => [ @EXPORT_OK ]); -%compat_arch = ( #- compatibilty arch mapping. +our %compat_arch = ( #- compatibilty arch mapping. 'noarch' => undef, 'ia32' => 'noarch', 'i386' => 'ia32', @@ -205,9 +205,9 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK %compat_arch $printable_chars $sizeof_i 'ia64' => 'noarch', ); -$printable_chars = "\x20-\x7E"; -$sizeof_int = psizeof("i"); -$bitof_int = $sizeof_int * 8; +our $printable_chars = "\x20-\x7E"; +our $sizeof_int = psizeof("i"); +our $bitof_int = $sizeof_int * 8; sub arch() { |