Bug#722174: clusterssh: Clusters file parsing of tags with line continuation is broken

[tony mancill]

Package: clusterssh
Version: 4.02.01-1
Severity: normal
Tags: upstream

This clusters file can't be parsed correctly:

---
sometag somehost \
        someotherhost
---




-- System Information:
Debian Release: jessie/sid
  APT prefers testing
  APT policy: (900, 'testing'), (300, 'unstable')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 3.9-1-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages clusterssh depends on:
ii  libexception-class-perl  1.32-1
ii  libtry-tiny-perl         0.18-1
ii  libx11-protocol-perl     0.56-4
ii  openssh-client           1:6.2p2-6
ii  perl                     5.14.2-21
ii  perl-tk                  1:804.031-1
ii  xterm                    295-1

clusterssh recommends no packages.

clusterssh suggests no packages.

-- no debconf information

--- /usr/share/perl5/App/ClusterSSH.pm	2013-08-26 17:27:51.809221174 +0200
+++ /tmp/ClusterSSH.pm.fixed	2013-08-26 17:28:25.341589234 +0200
@@ -635,7 +635,7 @@ sub get_clusters() {
                 ;    # ignore blank lines & commented lines
             chomp $l;
             if ( $l =~ s/\\\s*$// ) {
-                $l .= <CLUSTER>;
+                $l .= <CLUSTERS>;
                 redo unless eof(CLUSTERS);
             }
             my @line = split( /\s/, $l );
@@ -695,7 +695,7 @@ sub get_clusters() {
                     next if ( $l =~ /^\s*$/ || $l =~ /^#/ );
                     chomp $l;
                     if ( $l =~ s/\\\s*$// ) {
-                        $l .= <CLUSTER>;
+                        $l .= <CLUSTERS>;
                         redo unless eof(CLUSTERS);
                     }