correcting bug in Match.pm

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

diff --git a/code_perl/Maasha/Match.pm b/code_perl/Maasha/Match.pm
index 5acbdfee9a667fdb597120ef62cc4065c69e9a6b..b4050a8fa971105e236b2b1bc690eaa02a1f12f3 100644 (file)
--- a/code_perl/Maasha/Match.pm
+++ b/code_perl/Maasha/Match.pm
@@ -156,7 +156,7 @@ sub match_vmatch
 
     foreach $record ( @{ $records } ) 
     {
-        if ( $entry = record2fasta( $record ) )
+        if ( $entry = Maasha::Biopieces::record2fasta( $record ) )
         {
             next if length $entry->[ SEQ ] < 12; # assuming that the index is created for 12 as minimum length
 

diff --git a/code_perl/Maasha/Test.pm b/code_perl/Maasha/Test.pm
deleted file mode 100644 (file)
index 2a0fe25..0000000
--- a/code_perl/Maasha/Test.pm
+++ /dev/null
@@ -1,24 +0,0 @@
-package Maasha::Test;
-
-
-use warnings;
-use strict;
-
-require Exporter;
-
-use vars qw( @ISA @EXPORT @EXPORT_OK );
-
-@ISA = qw( Exporter );
-
-@EXPORT_OK = qw(
-    hello_world
-);
-
-sub hello_world
-{
-    print "Hello Word\n";
-}
-
-END {
-    hello_world;
-}