fix deep recursion on getContentLastModified

This commit is contained in:
Doug Bell 2010-04-09 11:12:55 -05:00
parent 4519f558cf
commit b6b5e6c939

View file

@ -362,7 +362,7 @@ of the page, by lineage.
=cut
sub getContentLastModified {
override getContentLastModified => sub {
# Buggo: this is a little too conservative. Children that are hidden maybe shouldn't count. Hm.
my $self = shift;
my $mtime = super();
@ -371,7 +371,7 @@ sub getContentLastModified {
$mtime = $child_mtime if ($child_mtime > $mtime);
}
return $mtime;
}
};
#-------------------------------------------------------------------