fixed bug in format_genome

git-svn-id: http://biopieces.googlecode.com/svn/trunk@496 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/bp_bin/format_genome b/bp_bin/format_genome
index d5058cac84da12023a8619fea0746e0a04b1a56d..f02720c22fc2eaee16bcacce24d7d82f00860988 100755 (executable)
--- a/bp_bin/format_genome
+++ b/bp_bin/format_genome
@@ -29,6 +29,9 @@
 use strict;
 use Maasha::Fasta;
 use Maasha::Biopieces;
+use Maasha::NCBI;
+use Maasha::Match;
+use Maasha::UCSC;
 
 
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

diff --git a/code_perl/Maasha/NCBI.pm b/code_perl/Maasha/NCBI.pm
index a94dc4a88550236db861eb83630198ed6240e36c..6618092e343fc509c68122a8da7ad13699df5f74 100644 (file)
--- a/code_perl/Maasha/NCBI.pm
+++ b/code_perl/Maasha/NCBI.pm
@@ -32,6 +32,7 @@ use strict;
 use Data::Dumper;
 use LWP::Simple;
 use Maasha::Common;
+use Maasha::Filesys;
 use Maasha::Seq;
 
 use vars qw( @ISA @EXPORT );
@@ -458,7 +459,7 @@ sub blast_index
         $type = "F";
     }
 
-    Maasha::Common::dir_create_if_not_exists( $dst_dir );
+    Maasha::Filesys::dir_create_if_not_exists( $dst_dir );
     Maasha::Common::run( "formatdb", "-p $type -i $src_dir/$file -t $index_name -l /dev/null" );
     Maasha::Common::run( "mv", "$src_dir/*hr $dst_dir" );
     Maasha::Common::run( "mv", "$src_dir/*in $dst_dir" );