X-Git-Url: http://woldlab.caltech.edu/gitweb/?p=samtools.git;a=blobdiff_plain;f=misc%2Fnovo2sam.pl;h=8b53c9efaf80cef817231111699b58a035049209;hp=3d3436c9534e315cd71ef9b8b5633289c63b0fd0;hb=317f5e8dd22cc9e1e5e05fbcaeb3b9aca7447351;hpb=4a17fa7e1f91b2fe04ad334a63fc2b0d5e859d8a

diff --git a/misc/novo2sam.pl b/misc/novo2sam.pl
index 3d3436c..8b53c9e 100755
--- a/misc/novo2sam.pl
+++ b/misc/novo2sam.pl
@@ -149,7 +149,7 @@ sub mdtag {
 		      $q+=1;
 		}
 		if ($indeltype eq "-") {
-			my $deletedbase = $2 if $string =~ /(\d+)\-([A-Z]+)/;
+			my $deletedbase = $2 if $string =~ /(\d+)\-([A-Za-z]+)/;
 			if ($deleteflag == 0 ) {
 				$mdtag.="^";
 			}
@@ -172,12 +172,12 @@ sub indeltype {
 	my $string =  shift;
 	my $insert="";
 	my $indeltype;
-               if ($string =~ /([A-Z]+)\>/) {
+               if ($string =~ /([A-Za-z]+)\>/) {
                         $indeltype=">";
                         $insert=$1;
                 } elsif ($string =~ /\-/) {
                         $indeltype="-";
-                } elsif ($string =~ /\+([A-Z]+)/) {
+                } elsif ($string =~ /\+([A-Za-z]+)/) {
                         $indeltype="+";
                         $insert=$1;
                 }
@@ -204,10 +204,10 @@ sub cigar_method {
 		next if $string =~  />/;
 		my $pos = $1 if $string =~ /^(\d+)/;
 		
-		if ($string =~ /\+([A-Z]+)/) {	
+		if ($string =~ /\+([A-Za-z]+)/) {	
 			$indeltype="+";
 			$insert = $1;
-		}elsif ($string =~ /\-([A-Z]+)/) {
+		}elsif ($string =~ /\-([A-Za-z]+)/) {
 			$indeltype="-";
 			$insert = $1;
 		}