From 9b9cdd034c72f1c2535aed17454ff8cdaa3b4700 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 29 Jul 2008 07:07:46 +0000
Subject: [PATCH] correcting bug in Match.pm

git-svn-id: http://biopieces.googlecode.com/svn/trunk@199 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Match.pm |  2 +-
 code_perl/Maasha/Test.pm  | 24 ------------------------
 2 files changed, 1 insertion(+), 25 deletions(-)
 delete mode 100644 code_perl/Maasha/Test.pm

diff --git a/code_perl/Maasha/Match.pm b/code_perl/Maasha/Match.pm
index 5acbdfe..b4050a8 100644
--- 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
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;
-}
-- 
2.39.2