From e2320af7a44a9c644d0439fe8fc07c263210eaaf Mon Sep 17 00:00:00 2001
From: Heng Li <lh3@live.co.uk>
Date: Wed, 10 Jun 2009 09:03:22 +0000
Subject: [PATCH] fixed a typo

---
 misc/export2sam.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/misc/export2sam.pl b/misc/export2sam.pl
index 3cd87ae..8e3e280 100755
--- a/misc/export2sam.pl
+++ b/misc/export2sam.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 # Contact: lh3
-# Version: 0.1.1 (03JAN2009)
+# Version: 0.1.2 (03JAN2009)
 
 use strict;
 use warnings;
@@ -84,9 +84,9 @@ sub export2sam_aux {
   my $has_coor = 0;
   $s->[2] = "*";
   if ($t[10] eq 'NM' || $t[10] eq 'QC') {
-	$s->[1] |= 0x8; # unmapped
+	$s->[1] |= 0x4; # unmapped
   } elsif ($t[10] =~ /(\d+):(\d+):(\d+)/) {
-	$s->[1] |= 0x8; # TODO: should I set BAM_FUNMAP in this case?
+	$s->[1] |= 0x4; # TODO: should I set BAM_FUNMAP in this case?
 	push(@$s, "H0:i:$1", "H1:i:$2", "H2:i:$3")
   } else {
 	$s->[2] = $t[10];
-- 
2.39.2