chiark / gitweb /
serialmgrd: Support recent versions of perl
authorIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 3 Mar 2015 19:33:28 +0000 (19:33 +0000)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 3 Mar 2015 19:34:17 +0000 (19:34 +0000)
split() doesn't automatically assign to @_ any more.

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

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