Mercurial > repos > jtilman > flexbar

comparison flexbar.pl @ 12:4cbf6c6d2f2b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
11:52c5e53aff28 12:4cbf6c6d2f2b
16 foreach(<reads*>){ 16 foreach(<reads*>){
17 17
18 my $fileType; 18 my $fileType;
19 19
20 $fileType = $1 if /\.(\w+)$/; 20 $fileType = $1 if /\.(\w+)$/;
21 $fileType = $format if /\.\w+fast\w$/; 21 $fileType = $format if /\.\w*fast\w$/;
22 $fileType = 'tabular' if $fileType eq 'lengthdist'; 22 $fileType = 'tabular' if $fileType eq 'lengthdist';
23 23
24 my $file = $_; 24 my $file = $_;
25 25
26 s/_//g; 26 s/_//g;