1
Description: Silence Perl 5.14 warnings by adding parenthesis
2
around a use of qw(...)
4
This re-enables the use of the memory monitor plugin.
5
Origin: http://munin-monitoring.org/changeset/4358
6
Bug-Ubuntu: http://pad.lv/1000678
8
Index: munin-1.4.6/plugins/node.d.linux/memory.in
9
===================================================================
10
--- munin-1.4.6.orig/plugins/node.d.linux/memory.in 2011-07-05 18:36:14.000000000 +0100
11
+++ munin-1.4.6/plugins/node.d.linux/memory.in 2012-05-21 14:45:18.733391915 +0100
13
print "inact_clean.draw LINE1\n";
14
print "inact_clean.info Memory not currently used.\n";
16
- for my $field qw(apps buffers swap cached free slab swap_cache page_tables vmalloc_used committed mapped active active_anon active_cache inactive inact_dirty inact_laundry inact_clean) {
17
+ for my $field (qw(apps buffers swap cached free slab swap_cache page_tables vmalloc_used committed mapped active active_anon active_cache inactive inact_dirty inact_laundry inact_clean)) {
18
my ($warning, $critical) = get_thresholds($field);
19
my $total = $mems{MemTotal};
20
$total = $mems{SwapTotal} if($field eq "swap");