--- trunk/lib/SourceSnoop.pm	2008/09/09 23:16:26	185
+++ trunk/lib/SourceSnoop.pm	2008/09/13 14:19:04	186
@@ -12,8 +12,10 @@
 
 our $debug = 1;
 
-sub pre {
-	my $t = shift;
+sub pre_dump {
+	my $o = shift;
+	# because Data::Dumper::HTML sucks
+	my $t = $o->dump; $t =~ s/ {8}/  /gm;
 	return "<pre>$t</pre>";
 }
 
@@ -46,7 +48,7 @@
 
 	$request->print( $self->page(
 		title => $path . '/' . $project->name ,
-		body => pre( $project->dump )
+		body => pre_dump( $project )
 	) );
 	$request->next;
 }