Parent Directory | Revision Log | Patch
revision 308 by dpavlin, Wed Nov 5 19:13:01 2008 UTC | revision 346 by dpavlin, Sat Nov 15 16:29:26 2008 UTC | |
---|---|---|
# | Line 33 sub markup { | Line 33 sub markup { |
33 | my $path = eval { $self->class_path( $class ) }; | my $path = eval { $self->class_path( $class ) }; |
34 | if ( $@ ) { | if ( $@ ) { |
35 | warn $@; | warn $@; |
36 | return; | my $error = $@; |
37 | $error =~ s{\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm; | |
38 | return qq|<div class="error"><pre>$error</pre></div>|; | |
39 | } | } |
40 | my $pod = read_file( $path ); | my $pod = read_file( $path ); |
41 | my $converter = Pod::Simple::HTML->new(); | my $converter = Pod::Simple::HTML->new(); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |