TW-1588: Fix broken export scripts

2015-03-31 06:57:04 +02:00
parent df209b9b8b
commit 3f394fa164
8 changed files with 10 additions and 8 deletions
--- a/scripts/add-ons/export-tsv.pl
+++ b/scripts/add-ons/export-tsv.pl
@@ -48,7 +48,7 @@ if ($command =~ /No matches/)
 print "uuid\tstatus\ttags\tentry\tstart\tdue\trecur\tend\tproject\t",
      "priority\tfg\tbg\tdescription\n";

-for my $task (split /,$/ms, qx{$command})
+for my $task (split "\n", qx{$command})
 {
  my $data = from_json ($task);