sub _changes_path {
my $self = shift;
my $path = $self->param('path') || $self->session('path');
- $self->app->home->rel_dir('data') . '/' . $path . '.changes';
+ $self->app->home->rel_file('data') . '/' . $path . '.changes';
}
sub _hash_eq {
warn "# _hash_eq ",dump($a_ref,$b_ref);
local $Storable::canonical = 1;
- return Storable::freeze( $a_ref ) eq Storable::freeze( $b_ref );
+ return eval { Storable::freeze( $a_ref ) } eq eval { Storable::freeze( $b_ref ) };
}
sub index {