X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FCollation%2FReading.pm;h=746fd5f2a69341ac0b01f6b8a5e6903ad79024d4;hb=b0b4421ad99abdb67e413f16219e932576212e50;hp=6906da8f8c65e7bd6fc9a97bbdd3879ac2b6cddc;hpb=22222af93f90716e2ca05b2caa9166c845627114;p=scpubgit%2Fstemmatology.git diff --git a/lib/Text/Tradition/Collation/Reading.pm b/lib/Text/Tradition/Collation/Reading.pm index 6906da8..746fd5f 100644 --- a/lib/Text/Tradition/Collation/Reading.pm +++ b/lib/Text/Tradition/Collation/Reading.pm @@ -81,7 +81,7 @@ has 'text' => ( required => 1, writer => 'alter_text', ); - + has 'is_start' => ( is => 'ro', isa => 'Bool', @@ -122,12 +122,11 @@ around BUILDARGS => sub { } else { $args = { @_ }; } - + # If one of our special booleans is set, we change the text and the # ID to match. - if( exists $args->{'is_lacuna'} && !exists $args->{'text'} ) { - $args->{'text'} = sprintf( "#LACUNA_%s#", $args->{'id'} ); + $args->{'text'} = '#LACUNA#'; } elsif( exists $args->{'is_start'} ) { $args->{'id'} = '#START#'; # Change the ID to ensure we have only one $args->{'text'} = '#START#';