added PDF/SVG export to BGB

[biopieces.git] / code_perl / Maasha / KISS.pm

diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index be841089e82c147c78d620ee779a0d34b10dd99c..b304b025f601e1151b7774e99c3ec48bb9742028 100644 (file)
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -108,8 +108,8 @@ sub kiss_retrieve
     # within an optional interval.
 
     my ( $file,   # path to KISS file
-         $beg,    # interval begin -  OPTIONAL
-         $end,    # interval end   -  OPTIONAL
+         $beg,    # interval begin  -  OPTIONAL
+         $end,    # interval end    -  OPTIONAL
        ) = @_;
 
     # Returns a list.
@@ -123,9 +123,8 @@ sub kiss_retrieve
 
     while ( $entry = kiss_entry_get( $fh ) )
     {
-        push @entries, $entry if $entry->[ S_END ] > $beg;
-        
         last if $entry->[ S_BEG ] > $end;
+        push @entries, $entry if $entry->[ S_END ] > $beg;
     }
 
     close $fh;