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 3110e8dae63a785d3fb7906dba326574885f5ca0..4e28f8733e488781c538ef5039ff831717f36d36 100644 (file)
--- 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.