diff flexbar.pl @ 12:4cbf6c6d2f2b

Fixed issue where adapter removal can not be performed and further minor issues.
author jtilman
date Thu, 17 Jan 2013 18:09:44 +0100
parents 52c5e53aff28
children 346a2b0979ea
line wrap: on
line diff
--- a/flexbar.pl	Wed Jan 02 12:54:28 2013 +0100
+++ b/flexbar.pl	Thu Jan 17 18:09:44 2013 +0100
@@ -18,7 +18,7 @@
 	my $fileType;
 	
 	$fileType = $1         if /\.(\w+)$/;
-	$fileType = $format    if /\.\w+fast\w$/;
+	$fileType = $format    if /\.\w*fast\w$/;
 	$fileType = 'tabular'  if $fileType eq 'lengthdist';
 	
 	my $file = $_;