From 6c2e2356d4a50c07c7349ae8922f35c8f8917f87 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 27 May 2010 18:05:07 +0200
Subject: [PATCH] reload file if changed

---
 lib/MojoFacets/Data.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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;
-- 
2.20.1