--- branches/zimbardo/lib/Frey/SVN.pm 2009/09/28 20:23:45 1189 +++ branches/zimbardo/lib/Frey/SVN.pm 2009/09/28 20:24:18 1190 @@ -130,10 +130,12 @@ my $diff_path = "$cache/$rev.diff"; $e->{diff} = $self->load( $diff_path ) if $self->include_diff && -e $diff_path; - my $diff_yaml = "$cache/$rev.yaml"; + my $path = "$cache/$rev.storable"; + my $data; - if ( -e $diff_yaml ) { - $e->{diff_paths} = $self->load( $diff_yaml ); + if ( -e $path ) { + $data = $self->load( $path ); + $e->{diff_paths} = $data->{diff_paths}; } else { my $cmd = "svn diff -c $rev $svn_path"; my ( $diff_fh, $diff_out ); @@ -161,9 +163,9 @@ } $e->{diff} = $diff if $self->include_diff; - - $self->store( "$cache/$rev.yaml", $changes ); $e->{diff_paths} = $changes; + + $self->store( $path, $e ) if $self->include_diff && $self->file_stats; } }