diff --git a/lib/Core/Memstat.pm b/lib/Core/Memstat.pm index 7bc58a9b4a5b369d901462c00d75acb47cf6ab35..b6b4b17a71ab699ed787e554beaa01271381b011 100644 --- a/lib/Core/Memstat.pm +++ b/lib/Core/Memstat.pm @@ -146,7 +146,7 @@ sub handler { /(.*)\:\s+(\d+).*/; $metrics{$1} = [$2, 'L']; } - for my $page qw( cache inactive active wire free page ) { + foreach my $page (qw/cache inactive active wire free page/) { $metrics{"vm.stats.vm.v_${page}_count"}->[0] *= ($metrics{'vm.stats.vm.v_page_size'}->[0] / 1024); } close(SYSCTL);