From 25d900de136f12439738b6773571736eae86e00f Mon Sep 17 00:00:00 2001
From: Ian Jackson <Ian.Jackson@eu.citrix.com>
Date: Tue, 3 Mar 2015 19:33:28 +0000
Subject: [PATCH 1/1] serialmgrd: Support recent versions of perl

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

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
 serialmgr/serialmgrd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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++ ] => $_ } @_ };
     }
-- 
2.30.2