From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Wed, 9 Sep 2009 06:53:23 +0000 (+0000)
Subject: fixed wrap blunder in Fasta.pm
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fba25a090dc6c3842587356a3d99b6b9302988b8;p=biopieces.git

fixed wrap blunder in Fasta.pm

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

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.