chomp;
next if /^#/;
my ($name,$fmt) = split(/\t+/,$_,2);
- $sfmt .= $fmt . '|';
+ $sfmt .= $fmt . ' ';
push @keys, $name;
}
-$sfmt =~ s/\|$/\n/;
+$sfmt =~ s/\s+$/\n/;
# arrayref and error (standard version)
my ($tlist, $error)=$h->torrents_list;
#hash %-40s
percent %5s
status %-11s
+size_bytes %12d
base_filename %s