Mercurial > repos > jtilman > flexbar
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 = $_;