diff fastx_barcode_splitter.pl @ 3:e7b7cdc1834d draft

planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/fastx_barcode_splitter_enhanced commit a3b5b09c69f880529df96bdd5e050d712fa35cf4-dirty

--- a/fastx_barcode_splitter.pl	Fri Nov 13 12:43:14 2015 -0500
+++ b/fastx_barcode_splitter.pl	Fri Mar 11 17:24:31 2016 -0500
@@ -316,7 +316,7 @@
 	my $read_id = shift;
 	my $stripped_read_id = $read_id;
 	if ($read_id_check_strip_characters) {
-		if ($read_id =~ /@([a-zA-Z0-9_-]+):([0-9]+):([a-zA-Z0-9]+):([0-9]+):([0-9]+):([0-9]+):([0-9]+) ([0-9]+):([YN]):([0-9]+):([ACGT]+){0,1}/) { # CASAVA 1.8+
+		if ($read_id =~ /@([^:]+):([0-9]+):([^:]+):([0-9]+):([0-9]+):([0-9]+):([0-9]+) ([0-9]+):([YN]):([0-9]+):([ACGT]+){0,1}/) { # CASAVA 1.8+
 			my @parts = split(/ /,$read_id);
 			$stripped_read_id = $parts[0];
 		} else { # CASAVA 1.7 and earlier