diff options
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common.pm.pl | 2 | ||||
| -rw-r--r-- | MDK/Common/System.pm | 11 |
2 files changed, 7 insertions, 6 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index 6ae6639..bf785cc 100644 --- a/MDK/Common.pm.pl +++ b/MDK/Common.pm.pl @@ -73,7 +73,7 @@ our @ISA = qw(Exporter); # perl_checker: RE-EXPORT-ALL our @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::; -our $VERSION = "1.2.1"; +our $VERSION = "1.2.2"; 1; EOF diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index c1008dd..0f8d478 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -189,10 +189,6 @@ L<MDK::Common> use MDK::Common::Math; use MDK::Common::File; -#- force loading of syscall.ph into this namespace -delete @INC{qw(syscall.ph bits/syscall.ph sys/syscall.ph asm/unistd.ph)}; -require 'syscall.ph'; - 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 addVarsInSh addVarsInShMode setExportedVarsInSh setExportedVarsInCsh template2file template2userfile read_gnomekderc update_gnomekderc fuzzy_pidofs); #); @@ -298,7 +294,12 @@ sub list_users() { sub syscall_ { my $f = shift; - syscall(&{"MDK::Common::System::SYS_$f"}, @_) == 0 + + #- load syscall.ph in package "main". If every use of syscall.ph do the same, all will be nice + package main; + require 'syscall.ph'; + + syscall(&{"main::SYS_$f"}, @_) == 0 } |