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 6a839adeaa3653ec34a644bef9c65d86db2ee565..9fec92cf92769e18285e77e48530e0ffced8e6c3 100755 (executable)
--- 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++ ] => $_ } @_ };
     }