From: Tara L Andrews <tla@mit.edu>
Date: Tue, 17 Jan 2012 12:40:28 +0000 (+0100)
Subject: oops,  is not an object
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a70370723615fd41e59a6b3e48d7afceb89ac288;p=scpubgit%2Fstemmatology.git

oops,  is not an object
---

diff --git a/lib/Text/Tradition/Collation/RelationshipStore.pm b/lib/Text/Tradition/Collation/RelationshipStore.pm
index 69e5ccb..f3fe5cb 100644
--- a/lib/Text/Tradition/Collation/RelationshipStore.pm
+++ b/lib/Text/Tradition/Collation/RelationshipStore.pm
@@ -65,9 +65,9 @@ sub create {
 	my $rel;
 	if( $self->graph->has_edge( $source, $target ) ) {
 		$rel = $self->graph->get_edge_attribute( $source, $target, 'object' );
-		if( $rel->type ne $options->type ) {
+		if( $rel->type ne $options->{'type'} ) {
 			warn "Another relationship of type " . $rel->type 
-				. "already exists between $source and $target";
+				. " already exists between $source and $target";
 			return;
 		} else {
 			return $rel;
@@ -269,7 +269,6 @@ sub related_readings {
 		my $check = [ $reading ];
 		my $iter = 0;
 		while( @$check ) {
-			$DB::single = 1 if $iter++ > 100;
 			my $more = [];
 			foreach my $r ( @$check ) {
 				foreach my $nr ( $self->graph->neighbors( $r ) ) {