bugfix for case where duplicated reading has no language set

tla · Apr 19, 2015 · 9611c64 · 9611c64
1 parent 87ded85
commit 9611c64
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/base/lib/Text/Tradition/Collation.pm b/base/lib/Text/Tradition/Collation.pm
@@ -744,8 +744,11 @@ sub duplicate_reading {
 				$args{$attr->name} = $which eq 'Array' 
 					? [ $r->$acc ] : { $r->$acc };
 			} 
-		} else {
-			$args{$attr->name} = $r->$acc if $acc;
+		} elsif( $acc ) {
+			my $attrval = $r->$acc;
+			if( defined $attrval ) {
+				$args{$attr->name} = $attrval;
+			}
 		}
 	}
 	# By definition the new reading will no longer be common.