comparison flexbar.pl @ 12:4cbf6c6d2f2b

Fixed issue where adapter removal can not be performed and further minor issues.

11:52c5e53aff28

foreach(<reads*>){
	
	my $fileType;
	
	$fileType = $1         if /\.(\w+)$/;
	$fileType = $format    if /\.\w+fast\w$/;
	$fileType = 'tabular'  if $fileType eq 'lengthdist';
	
	my $file = $_;
	
	s/_//g;

12:4cbf6c6d2f2b

foreach(<reads*>){
	
	my $fileType;
	
	$fileType = $1         if /\.(\w+)$/;
	$fileType = $format    if /\.\w*fast\w$/;
	$fileType = 'tabular'  if $fileType eq 'lengthdist';
	
	my $file = $_;
	
	s/_//g;