X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition.pm;h=9f7a3347b61afd97098c5277d410b42d4e56a865;hb=ec3f91448d2c7c42ed12cc10c5715de1d4f2fce5;hp=60a939685af7886b7820d93e3b15e426f696e001;hpb=df6d9812785bb672a94d3b90baf5f03abc30ba36;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index 60a9396..9f7a334 100644
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -59,7 +59,7 @@ sub BUILD {
 	$self->_save_collation( $collation );
 
 	# Call the appropriate parser on the given data
-	my @formats = grep { /^(GraphML|CSV|CTE|TEI)$/ } keys( %$init_args );
+	my @formats = grep { /^(Self|CollateX|CSV|CTE|TEI)$/ } keys( %$init_args );
 	my $format = shift( @formats );
 	unless( $format ) {
 	    warn "No data given to create a collation; will initialize an empty one";