From aa5df761c0ac7ade7f553428f04de01a4d8e0138 Mon Sep 17 00:00:00 2001
From: Torsten Seemann <torsten@seemann.id.au>
Date: Tue, 7 Apr 2015 13:47:57 +1000
Subject: [PATCH] Fix Issue #5 for cdifficile which uses rare "mlst_clade"
 column

---
 bin/mlst | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/mlst b/bin/mlst
index e13fa738..b8a8598d 100755
--- a/bin/mlst
+++ b/bin/mlst
@@ -154,7 +154,7 @@ sub load_scheme {
     chomp;
     my @x = split m/\t/;
     if ($. == 1) {
-      @gene = grep { $_ ne 'ST' and $_ ne 'clonal_complex'  } @x;
+      @gene = grep { $_ !~ m/(^ST|complex|clade)/  } @x;
       $st{GENES} = [ @gene ];
       print "Allelles: @gene\n" if $verbose;
     }