diff --git a/bin/wig-to-json.pl b/bin/wig-to-json.pl index fb867d31c1..7b27179943 100755 --- a/bin/wig-to-json.pl +++ b/bin/wig-to-json.pl @@ -82,7 +82,7 @@ print "\nworking on seq $seqName\n"; mkdir("$tilesubdir/$seqName") unless (-d "$tilesubdir/$seqName"); - JsonGenerator::modifyJsonFile("$outdir/trackInfo.json", "trackInfo", + JsonGenerator::modifyJsonFile("$outdir/trackInfo.json", sub { my $trackList = shift; my $i; diff --git a/lib/ImageTrackRenderer.pm b/lib/ImageTrackRenderer.pm index 1c120d3bfa..b0f89ef538 100644 --- a/lib/ImageTrackRenderer.pm +++ b/lib/ImageTrackRenderer.pm @@ -205,7 +205,7 @@ sub render { close TRACKFILE or die "Couldn't close $trackfile : $!"; # write to track list - JsonGenerator::modifyJsonFile($self->trackinfopath, "trackInfo", + JsonGenerator::modifyJsonFile($self->trackinfopath, sub { my $trackList = shift; my $i; diff --git a/lib/JsonGenerator.pm b/lib/JsonGenerator.pm index 7c1c8b9642..87ed986086 100644 --- a/lib/JsonGenerator.pm +++ b/lib/JsonGenerator.pm @@ -120,7 +120,7 @@ sub modifyJsonFile { sub writeTrackEntry { my ($file, $entry) = @_; - modifyJsonFile($file, "trackInfo", + modifyJsonFile($file, sub { my $origTrackList = shift; my @trackList = grep { exists($_->{'label'}) } @$origTrackList;