X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;ds=sidebyside;f=bindings%2Fperl%2Flib%2FCollectd%2FUnixsock.pm;h=d927d13e4bc486b48110c5d786ad537d763f8de8;hb=7bab45b57d6ef99ae55c499c51478dd63c3b1397;hp=69c755b6a92996cd192b9845ea87c866dd51b741;hpb=8eb05d21637cd1eb3b6c4c4d3ed519cc2fd3ebf6;p=collectd.git

diff --git a/bindings/perl/lib/Collectd/Unixsock.pm b/bindings/perl/lib/Collectd/Unixsock.pm
index 69c755b6..d927d13e 100644
--- a/bindings/perl/lib/Collectd/Unixsock.pm
+++ b/bindings/perl/lib/Collectd/Unixsock.pm
@@ -262,10 +262,11 @@ sub getthreshold # {{{
     $self->_socket_chat($msg, sub {
             local $_ = shift;
             my $ret = shift;
-		    /^\s*([^:]+):\s*(.*)/ and do {
-			    $1 =~ s/\s*$//;
-			    $ret->{$1} = $2;
-		    };
+            my ( $key, $val );
+            ( $key, $val ) = /^\s*([^:]+):\s*(.*)/ and do {
+                  $key =~ s/\s*$//;
+                  $ret->{$key} = $val;
+            };
         }, $ret
     );
 	return $ret;