X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bp_bin%2Ffind_gaps;h=ade831ad9c9e1d28060050bec35a850a8cb4572a;hb=2f0fd91b461033529a4a72e161bd133252a22eb6;hp=300ae0952b9cb9c0c194eab4d3bf7087d490aff2;hpb=40a9c05afcf4ec3136df7f0f629cca7287cf0d6a;p=biopieces.git

diff --git a/bp_bin/find_gaps b/bp_bin/find_gaps
index 300ae09..ade831a 100755
--- a/bp_bin/find_gaps
+++ b/bp_bin/find_gaps
@@ -83,11 +83,13 @@ sub find_gaps
 
     # Returns a list.
 
-    my ( @gaps, $block, $beg, $end );
+    my ( $gap_char, @gaps, $block, $beg, $end );
+
+    $gap_char = 'N';
 
     $seq = uc $seq;
 
-    $block = 'N' x $min;
+    $block = $gap_char x $min;
 
     $beg = 0;
 
@@ -99,7 +101,7 @@ sub find_gaps
 
         $end = $beg;
 
-        while ( substr( $seq, $end, 1 ) eq 'N' ) {
+        while ( substr( $seq, $end, 1 ) eq $gap_char ) {
             $end++;
         }