global replace modifyJSFile -> modifyJsonFile

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

Hide file tree

Showing 3 changed files with 4 additions and 4 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::modifyJSFile("$outdir/trackInfo.json", "trackInfo",
+    JsonGenerator::modifyJsonFile("$outdir/trackInfo.json", "trackInfo",
 		 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::modifyJSFile($self->trackinfopath, "trackInfo",
+	JsonGenerator::modifyJsonFile($self->trackinfopath, "trackInfo",
 				    sub {
 					my $trackList = shift;
 					my $i;

diff --git a/lib/JsonGenerator.pm b/lib/JsonGenerator.pm
@@ -1,7 +1,7 @@
 package JsonGenerator;
 
 use base 'Exporter';
-our @EXPORT_OK = qw/ readJSON writeJSON modifyJSFile /;
+our @EXPORT_OK = qw/ readJSON writeJSON modifyJsonFile /;
 
 use strict;
 use warnings;
@@ -120,7 +120,7 @@ sub modifyJsonFile {
 
 sub writeTrackEntry {
     my ($file, $entry) = @_;
-    modifyJSFile($file, "trackInfo",
+    modifyJsonFile($file, "trackInfo",
         sub {
             my $origTrackList = shift;
             my @trackList = grep { exists($_->{'label'}) } @$origTrackList;