diff options
Diffstat (limited to 'MDK/Common/System.pm')
| -rw-r--r-- | MDK/Common/System.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index de14ddf..686fcbe 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -245,7 +245,7 @@ sub list_skels { grep { -d $_ && -w $_ } map { "$prefix$_/$suffix" } '/etc/skel', '/root', list_home(); } -sub list_users { +sub list_users() { map { 500 < $_->[2] && $_->[0] ne "nobody" ? $_->[0] : () } list_passwd(); } @@ -269,11 +269,11 @@ sub df { map { $_ * ($blocksize / 1024) } $size, $free; } -sub sync { syscall_('sync') } +sub sync() { syscall_('sync') } sub psizeof { length pack $_[0] } sub availableMemory() { MDK::Common::Math::sum(map { /(\d+)/ } grep { /^(MemTotal|SwapTotal):/ } MDK::Common::File::cat_("/proc/meminfo")) } sub availableRamMB() { 4 * MDK::Common::Math::round((-s '/proc/kcore') / 1024 / 1024 / 4) } -sub gettimeofday { my $t = pack "LL"; syscall_('gettimeofday', $t, 0) or die "gettimeofday failed: $!\n"; unpack("LL", $t) } +sub gettimeofday() { my $t = pack "LL"; syscall_('gettimeofday', $t, 0) or die "gettimeofday failed: $!\n"; unpack("LL", $t) } sub unix2dos { local $_ = $_[0]; s/\015$//mg; s/$/\015/mg; $_ } |