chiark / gitweb /
serialmgrd: Support recent versions of perl
[sympathy.git] / 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++ ] => $_ } @_ };
     }