* samtools-0.1.5-18 (r423)

[samtools.git] / misc / samtools.pl

diff --git a/misc/samtools.pl b/misc/samtools.pl
index 06c24dc6230c1d9baef40387574c02c9cda26d63..ade52899ef23e06293d2ad0ff7e81e67d857937f 100755 (executable)
--- a/misc/samtools.pl
+++ b/misc/samtools.pl
@@ -24,6 +24,7 @@ sub showALEN {
   die(qq/Usage: samtools.pl showALEN <in.sam>\n/) if (@ARGV == 0 && -t STDIN);
   while (<>) {
        my @t = split;
+       next if (/^\@/ || @t < 11);
        my $l = 0;
        $_ = $t[5];
        s/(\d+)[SMI]/$l+=$1/eg;