X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition.pm;fp=lib%2FText%2FTradition.pm;h=fed22a3182f58439e7c664c7d3531a886b00b52d;hb=65ed66b94aa5b05c0f64f6040642d41a980e95eb;hp=5f8ad83da10c803aa6b6b2359daa7a5b2d929d78;hpb=fae52efdaeb4b67f58e47ec8ebe110537f2535ea;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index 5f8ad83..fed22a3 100644
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -1,6 +1,6 @@
 package Text::Tradition;
 
-use JSON qw / decode_json /;
+use JSON qw / from_json /;
 use Module::Load;
 use Moose;
 use Text::Tradition::Collation;
@@ -294,8 +294,8 @@ each element therein.
 
 sub add_json_witnesses {
 	my( $self, $jsonstr, $extraopts ) = @_;
-	my $witarray = decode_json( $jsonstr );
-	foreach my $witspec ( @$witarray ) {
+	my $witarray = from_json( $jsonstr );
+	foreach my $witspec ( @{$witarray->{witnesses}} ) {
 		my $opts = $extraopts || {};
 		$opts->{'sourcetype'} = 'json';
 		$opts->{'object'} = $witspec;