Merge tag 'upstream/3.3.3'

[debian/amanda] / client-src / amdump_client.pl

diff --git a/client-src/amdump_client.pl b/client-src/amdump_client.pl
index 560747c7d82e51f39c83506244cf6d425e323f39..4320e099108d168fe27a929f240f0eb3bdcc9eb7 100644 (file)
--- a/client-src/amdump_client.pl
+++ b/client-src/amdump_client.pl
@@ -1,9 +1,10 @@
 #! @PERL@
-# Copyright (c) 2010 Zmanda Inc.  All Rights Reserved.
+# Copyright (c) 2010-2012 Zmanda Inc.  All Rights Reserved.
 #
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License version 2 as published
-# by the Free Software Foundation.
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
@@ -101,7 +102,7 @@ if ($cmd eq 'list') {
                    debug("send: DISK " . Amanda::Util::quote_string($diskname));
                    print {$amservice_in} "DISK " . Amanda::Util::quote_string($diskname) . "\n";
                    my $a = <$amservice_out>;
-                   print if ($a != /^DISK /)
+                   print if ($a !~ /^DISK /)
                }
            }
        }