X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FParser%2FTabular.pm;h=1ccf8d27ab7c8863c4a7247971d05cf700b4d912;hb=3a2ebbf4607bc7ab83788e5a57c44a960829cd1c;hp=9daed142b2c5f5c5b3bbad0e38471bb813affaed;hpb=3b853983204d888a90c029c1e66d77b9fa9642b5;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Parser/Tabular.pm b/lib/Text/Tradition/Parser/Tabular.pm
index 9daed14..1ccf8d2 100644
--- a/lib/Text/Tradition/Parser/Tabular.pm
+++ b/lib/Text/Tradition/Parser/Tabular.pm
@@ -32,9 +32,7 @@ Parser module for Text::Tradition to read an alignment table format, such as CSV
 
 =head1 METHODS
 
-=over
-
-=item B<parse>( $tradition, $option_hash )
+=head2 B<parse>( $tradition, $option_hash )
 
 Takes an initialized tradition and a set of options; creates the
 appropriate nodes and edges on the graph, as well as the appropriate
@@ -99,7 +97,9 @@ sub parse {
             }
         }
     } elsif( exists $opts->{'file'} ) {
-        open( my $fh, $opts->{'file'} ) or die "Could not open input file " . $opts->{'file'};
+        open( my $fh, $opts->{'file'} ) 
+            or warn "Could not open input file " . $opts->{'file'};
+        binmode( $fh, ':utf8' );
         while( my $row = $csv->getline( $fh ) ) {
             push( @$alignment_table, $row );
         }