--- trunk/lib/Frey/Test/Runner.pm 2008/11/25 00:28:52 508 +++ trunk/lib/Frey/Test/Runner.pm 2008/11/25 13:47:46 512 @@ -79,6 +79,7 @@ if ( my $depends = $self->depends ) { @tests = grep { + $_ ne '' && ! m{$0} # break recursion } sort keys %{ $depends } unless @tests; } @@ -101,7 +102,9 @@ warn "got ",length($html), " bytes"; while ( $html =~ s{()}{}gs ) { - $self->add_head( $1 ); + my $style = $1; + $style =~ s[((?:body|html)\s+{[^}]+})][/\* $1 \*/]sg; # remove some styles + $self->add_head( $style ); } $self->add_head(qq| @@ -111,6 +114,7 @@ td.results:hover ul.test-out { display: block; } |); + $html =~ s{}{}sg; # remove menu which doesn't work without JavaScript $html =~ s{^.*}{}s; $html =~ s{.*$}{}s;