X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstemmaweb%2FController%2FStexaminer.pm;h=a7b8af8ce7a80f73e257fafced084b0ac6dbd373;hb=6cf17f047a7cc39d7f0c691bad4df9839cae573c;hp=ff4f69b7c4efc3175da9a57909ed6c0355490e43;hpb=5800cf9ea8c4513f385b9823f4778bce34caf8fd;p=scpubgit%2Fstemmaweb.git

diff --git a/lib/stemmaweb/Controller/Stexaminer.pm b/lib/stemmaweb/Controller/Stexaminer.pm
index ff4f69b..a7b8af8 100644
--- a/lib/stemmaweb/Controller/Stexaminer.pm
+++ b/lib/stemmaweb/Controller/Stexaminer.pm
@@ -157,9 +157,7 @@ sub graphsvg :Local {
 	my( $self, $c ) = @_;
 	my $dot = $c->request->param('dot');
 	my @layerwits = $c->request->param('layerwits[]');
-	open my $stemma_fh, '<', \$dot;
-	binmode( $stemma_fh, ':encoding(UTF-8)' );
-	my $tempstemma = Text::Tradition::Stemma->new( 'dot' => $stemma_fh );
+	my $tempstemma = Text::Tradition::Stemma->new( 'dot' => $dot );
 	my $svgopts = {};
 	if( @layerwits ) {
 		$svgopts->{'layerwits'} = \@layerwits;