--- trunk/lib/Frey/SVN.pm	2009/06/04 20:45:28	1080
+++ trunk/lib/Frey/SVN.pm	2009/06/05 14:02:55	1081
@@ -120,6 +120,8 @@
 		if ( $self->include_diff || $self->file_stats ) {
 			my $rev = $e->{'revision'};
 
+			warn "# revision $rev\n" if $rev % 100 == 0;
+
 			$e->{diff_paths}->{rev} = $rev; # XXX debug
 
 			my $cache = $svn_path;
@@ -369,6 +371,8 @@
 
 	});
 
+	warn "generated ",length($file_events)," bytes of file events\n";
+
 	return qq|<?xml version="1.0"?>
 	<!-- One commit per day for one month by a documenter and programmer. -->
 	<file_events>