--- Session.pm	2007/08/06 09:20:49	170
+++ Session.pm	2007/09/30 19:50:30	186
@@ -89,7 +89,7 @@
 	push @timeline, $t;
 	$s->{$t}->{$name} = $value;
 
-	warn "## created event($dt,$name,",dump($value),")\n";
+#	warn "## created event($dt,$name,",dump($value),")\n";
 }
 
 =head2 load_session
@@ -108,7 +108,7 @@
 	}
 
 	eval read_file( $path );
-	warn "session = ",dump( $s );
+	warn "session = ",dump( $s ) if $self->debug;
 
 	my ( $from, $to ) = @timeline[0,-1];
 	printf "loaded session %.2f-%.2fs with %d events\n", $from / 1000, $to / 1000, $#timeline + 1;