adding bzip2 support in ruby

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

diff --git a/code_perl/Maasha/GFF.pm b/code_perl/Maasha/GFF.pm
index 407a3269e977f35a2948b8a7892a472ed9bf64e4..6201b09bb74683a8e5a5f57056d877b8a935b1e4 100644 (file)
--- a/code_perl/Maasha/GFF.pm
+++ b/code_perl/Maasha/GFF.pm
@@ -145,9 +145,9 @@ sub gff2biopiece
         'S_ID'   => $entry->[ seqid ],
         'SOURCE' => $entry->[ source ],
         'TYPE'   => $entry->[ type ],
-        'S_BEG'  => $entry->[ start ],
-        'S_END'  => $entry->[ end ],
-        'S_LEN'  => $entry->[ end ] - $entry->[ start ] + 1,
+        'S_BEG'  => $entry->[ start ] - 1,
+        'S_END'  => $entry->[ end ]   - 1,
+        'S_LEN'  => $entry->[ end ]   - $entry->[ start ] + 1,
         'SCORE'  => $entry->[ score ],
         'STRAND' => $entry->[ strand ],
         'PHASE'  => $entry->[ phase ],