From fba25a090dc6c3842587356a3d99b6b9302988b8 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Wed, 9 Sep 2009 06:53:23 +0000
Subject: [PATCH] fixed wrap blunder in Fasta.pm

git-svn-id: http://biopieces.googlecode.com/svn/trunk@665 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Fasta.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/code_perl/Maasha/Fasta.pm b/code_perl/Maasha/Fasta.pm
index 3110e8d..4e28f87 100644
--- a/code_perl/Maasha/Fasta.pm
+++ b/code_perl/Maasha/Fasta.pm
@@ -119,6 +119,23 @@ sub put_entry
 }
 
 
+sub wrap
+{
+    # Martin A. Hansen, June 2007
+
+    # Wraps the sequence of a given FASTA entry
+    # to a given length.
+
+    my ( $entry,   # FASTA entry
+         $wrap,    # wrap length
+       ) = @_;
+
+    # Returns nothing.
+
+    Maasha::Seq::wrap( \$entry->[ SEQ ], $wrap );
+}
+
+
 sub fasta_index
 {
     # Martin A. Hansen, July 2008.
-- 
2.39.5