From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 27 May 2010 16:05:07 +0000 (+0200)
Subject: reload file if changed
X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=6c2e2356d4a50c07c7349ae8922f35c8f8917f87

reload file if changed
---

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index d37910b..6286671 100644
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -75,14 +75,13 @@ sub _load_path {
 	my $full_path = $self->app->home->rel_file( 'data/' . $path );
 	die "$full_path $!" unless -r $full_path;
 
+	my $dump_path = $self->_dump_path( $path );
+
 	if ( defined $loaded->{$path}->{data} ) {
 		my $mtime = (stat($full_path))[9];
 		return if $loaded->{$path}->{mtime} == $mtime;
 		warn "reload $full_path, modified ", time() - $mtime, " seconds ago\n";
-	}
-
-	my $dump_path = $self->_dump_path( $path );
-	if ( -e $dump_path ) {
+	} elsif ( -e $dump_path ) {
 		warn "dump_path $dump_path ", -s $dump_path, " bytes loading...\n";
 		my $info = retrieve $dump_path;
 		$loaded->{ $path } = $info;