refactoring of assemble_pairs

[biopieces.git] / bp_bin / analyze_gc

diff --git a/bp_bin/analyze_gc b/bp_bin/analyze_gc
index 66673ff3711386417deb54d1f8cbcc66b38cb84d..8c0790f80db27e32dfc1df7095142f5e56682cbd 100755 (executable)
--- a/bp_bin/analyze_gc
+++ b/bp_bin/analyze_gc
@@ -49,7 +49,7 @@ while ( $record = Maasha::Biopieces::get_record( $in ) )
     {
         $gc_count   = $record->{ "SEQ" } =~ tr/GgCc//;
         $gc_percent =  ( $gc_count / length $record->{ "SEQ" } ) * 100;
-        $record->{ 'GC%' } = sprintf( "%.2f", $gc_pecent );
+        $record->{ 'GC%' } = sprintf( "%.2f", $gc_percent );
 #        $record->{ 'GC%' } = int $gc_percent;
     }