Dustin J. Mitchell wrote:
On Mon, Sep 13, 2010 at 11:04 AM, Jean-Louis Martineau
<[email protected]> wrote:
Robert, can you try the attached patch?
(only the amoverview hunk is required, right Jean-Louis?)
yes, The correct patch is attached.
Jean-Louis
diff --git a/server-src/amoverview.pl b/server-src/amoverview.pl
index 4f721e5..5dbd625 100644
--- a/server-src/amoverview.pl
+++ b/server-src/amoverview.pl
@@ -195,13 +195,13 @@ my $top_format = "format TOP =\n\n" .
join(' ', map((/......(..)/)[0], sort keys %dates)) . "\n" .
"\n.\n";
-+ local ($::thishost,$::thisdisk);
+local ($::thishost,$::thisdisk);
my $out_format = "format STDOUT =\n" .
"@" . "<" x ($opt_hostwidth - 1) . ' ' .
"@" . "<" x ($opt_diskwidth - 1) . ' ' .
'@> ' x scalar(keys %dates) . "\n" .
join(', ', '$::thishost', '$::thisdisk',
- map("substr(\$level{\$::thishost}{\$::thisdisk}{'$_'},-2)", sort keys %dates)) . "\n" .
+ map("defined(\$level{\$::thishost}{\$::thisdisk}{'$_'})?substr(\$level{\$::thishost}{\$::thisdisk}{'$_'},-2):' '", sort keys %dates)) . "\n" .
".\n";
eval $top_format;