X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FTypeMap%2FEntry.pm;h=50dfb51c6958b8bedae640eefd95cf55c3555468;hb=f3f2662494803d7ed93ab116bd118f86aa667ce2;hp=00cdfd18cc9a4f1be7282a23df574fcde4fc8545;hpb=3be63d2415e835407100a7d749a6beb1b830f77d;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/TypeMap/Entry.pm b/lib/Text/Tradition/TypeMap/Entry.pm
index 00cdfd1..50dfb51 100644
--- a/lib/Text/Tradition/TypeMap/Entry.pm
+++ b/lib/Text/Tradition/TypeMap/Entry.pm
@@ -16,7 +16,6 @@ sub compile_collapse_body {
         my ( $self, %args ) = @_;
 
         my $object = $args{object};
-
         return $self->make_entry(
             %args,
             data => YAML::XS::Dump($object)
@@ -29,9 +28,9 @@ sub compile_expand {
 
     return sub {
         my ( $self, $entry ) = @_;
-        $self->inflate_data( YAML::XS::Load($entry->data), \( my $obj ), $entry );
-
+	$self->inflate_data( YAML::XS::Load($entry->data), \(my $obj), $entry );
         bless $obj, $class;
+	return $obj;
     };
 }