Imported Upstream version 2.6.1
[debian/amanda] / server-src / amoverview.pl
index 35594e4eaf85b4ed033239cffb13e5ee40320547..0dc5fc1ef98841073401f97e4a31df0497deaefc 100644 (file)
@@ -104,7 +104,7 @@ my $dlfh = new FileHandle "$amadmin $opt_config disklist|" or
     die "$0: error in opening `$amadmin $opt_config disklist' pipe: $!\n";
 $/ = "";
 while (<$dlfh>) {
-    ($host, $disk) = m/    host (.*?):.*    disk (.*?):.*strategy (STANDARD|NOFULL|NOINC|HANOI|INCRONLY).*ignore NO/s;
+    ($host, $disk) = m/    host (.*?):\n.*    disk (.*?):\n.*strategy (STANDARD|NOFULL|NOINC|HANOI|INCRONLY).*ignore NO/ms;
     next unless $host;
     $disks{$host}{$disk}++;
 }