update a few calls to modifyJsonFile to remove varName

GMOD · Jan 30, 2012 · bef932e · bef932e
1 parent 4ac9251
commit bef932e
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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;