From: Ian Jackson <Ian.Jackson@eu.citrix.com>
Date: Tue, 3 Mar 2015 19:33:28 +0000 (+0000)
Subject: serialmgrd: Support recent versions of perl
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=sympathy.git;a=commitdiff_plain;h=25d900de136f12439738b6773571736eae86e00f

serialmgrd: Support recent versions of perl

split() doesn't automatically assign to @_ any more.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---

diff --git a/serialmgr/serialmgrd b/serialmgr/serialmgrd
index 6a839ad..9fec92c 100755
--- a/serialmgr/serialmgrd
+++ b/serialmgr/serialmgrd
@@ -56,7 +56,7 @@ sub read_file() {
         next if ( $_ =~ /^#/ );
 
         chomp;
-        split(':');
+        @_ = split(':');
         $c = 0;
         push @$lines, { map { $keys[ $c++ ] => $_ } @_ };
     }