--- trunk/lib/Frey/Test/Runner.pm	2008/11/28 16:45:35	593
+++ trunk/lib/Frey/Test/Runner.pm	2008/12/02 01:49:25	673
@@ -63,13 +63,15 @@
 sub as_markup {
 	my ($self) = @_;
 
+=for later
+
 	my $path = 'var/test/';
 	my $running_pid = "$path/running.pid";
 
 	my $pid = read_file $running_pid if -e $running_pid;
 	if ( $pid ) {
 		if ( kill 0, $pid ) {
-			warn "ABORTING: $self started twice";
+			warn "ABORTING: $self allready running as pid $pid";
 			return 'abort';
 		} else {
 			warn "got $pid from $running_pid but no process alive, ignoring...";
@@ -79,6 +81,8 @@
 	write_file( $running_pid, $$ );
 	warn "# started $self with pid $$ -> $running_pid";
 
+=cut
+
 	my $f = TAP::Formatter::HTML->new({
 #		silent => 1,
 
@@ -169,8 +173,12 @@
 
 	$self->add_icon( $1 ) if $html =~ m{class="(passed|failed)"};
 
+=for later
+
 	unlink $running_pid or die "can't remove $running_pid: $!";
 
+=cut
+
 	return $html;
 }