79 |
|
|
80 |
if ( my $depends = $self->depends ) { |
if ( my $depends = $self->depends ) { |
81 |
@tests = grep { |
@tests = grep { |
82 |
|
$_ ne '' && |
83 |
! m{$0} # break recursion |
! m{$0} # break recursion |
84 |
} sort keys %{ $depends } unless @tests; |
} sort keys %{ $depends } unless @tests; |
85 |
} |
} |
118 |
|
|
119 |
$html =~ s{(<a class="file") href="#"(.+?)>t/(.+?)</a>}{<a target="editor" href="/editor+t/$3.t+1" name="t/$3.t" $2>$3</a>}sg; |
$html =~ s{(<a class="file") href="#"(.+?)>t/(.+?)</a>}{<a target="editor" href="/editor+t/$3.t+1" name="t/$3.t" $2>$3</a>}sg; |
120 |
|
|
121 |
return |
$html = $self->editor_links( $html ); |
122 |
$self->editor_links( $html ) |
|
123 |
. qq|Test dependencies:<ul><li>| |
if ( my $depends = $self->depends ) { |
124 |
|
$html .= qq|Test dependencies:| |
125 |
|
. qq|<ul><li>| |
126 |
. join("</li>\n<li>", |
. join("</li>\n<li>", |
127 |
map { |
map { |
128 |
qq|<a href="#$_"><tt>$_</tt></a> ← | |
qq|<a href="#$_"><tt>$_</tt></a> ← | |
140 |
} @tests ) |
} @tests ) |
141 |
. qq|</li></ul>| |
. qq|</li></ul>| |
142 |
; |
; |
143 |
|
} |
144 |
|
|
145 |
} |
} |
146 |
|
|