Bug#618664: can't handle hashes in plugin output

[Hanno Hecker]

Package: munin
Version: 1.4.5-3
Severity: normal
Tags: patch


Same here, with IRC channel names. Possible fix is attached.

        Hanno

-- System Information:
Debian Release: 6.0.1
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: i386 (i686)

Kernel: Linux 2.6.32-5-686 (SMP w/1 CPU core)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

--- /usr/share/perl5/Munin/Master/Update.pm.ORIG        2010-10-05 
15:37:50.000000000 +0200
+++ /usr/share/perl5/Munin/Master/Update.pm     2011-06-06 20:43:41.000000000 
+0200
@@ -288,11 +288,13 @@
     for my $host (keys %{$self->{service_configs}}) {
         for my $service (keys %{$self->{service_configs}{$host}{data_source}}) 
{
             for my $attr 
(@{$self->{service_configs}{$host}{global}{$service}}) {
-                print $io "$host:$service.$attr->[0] $attr->[1]\n";
+               (my $str = $attr->[1]) =~ s/(^|[^\\])#/$1\\#/g;         
+                print $io "$host:$service.$attr->[0] $str\n";
             }
             for my $data_source (keys 
%{$self->{service_configs}{$host}{data_source}{$service}}) {
                 for my $attr (keys 
%{$self->{service_configs}{$host}{data_source}{$service}{$data_source}}) {
-                    print $io "$host:$service.$data_source.$attr 
$self->{service_configs}{$host}{data_source}{$service}{$data_source}{$attr}\n";
+                    (my $str = 
$self->{service_configs}{$host}{data_source}{$service}{$data_source}{$attr}) =~ 
s/(^|[^\\])#/$1\\#/g;
+                    print $io "$host:$service.$data_source.$attr $str\n";
                 }
             }
         }