added missing files

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

diff --git a/code_perl/Maasha/RestrictEnz.pm b/code_perl/Maasha/RestrictEnz.pm
index 19744394cd0c4a55e0323ebf288150e7f8948eda..836835b08c76f3f4ed3fc9e597ae511d370c260f 100644 (file)
--- a/code_perl/Maasha/RestrictEnz.pm
+++ b/code_perl/Maasha/RestrictEnz.pm
@@ -129,7 +129,7 @@ void scan( char *seq, char *pat, int seq_len, int pat_len )
     Inline_Stack_Vars;
     Inline_Stack_Reset;
 
-    for ( i = 0; i < seq_len - pat_len; i++ )
+    for ( i = 0; i < seq_len - pat_len + 1; i++ )
     {
         if ( match( &seq[ i ], pat, pat_len ) ) {
           Inline_Stack_Push( sv_2mortal( newSViv( i ) ) );