[libdevel-cover-perl] 13/32: Fix up cpancover links.

Sun Apr 26 22:26:37 UTC 2015

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag v1.18
in repository libdevel-cover-perl.

commit f8763051d234250c9e8d975d9936df70a9363fc2
Author: Paul Johnson <paul at pjcj.net>
Date:   Tue Oct 14 00:15:38 2014 +0100

    Fix up cpancover links.
---
 lib/Devel/Cover/Collection.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Devel/Cover/Collection.pm b/lib/Devel/Cover/Collection.pm
index f206a98..c454ee9 100644
--- a/lib/Devel/Cover/Collection.pm
+++ b/lib/Devel/Cover/Collection.pm
@@ -296,6 +296,7 @@ sub generate_html {
         title    => "Coverage report",
         modules  => {},
         vals     => {},
+        subdir   => "latest/",
         headers  => [ grep !/path|time/,
                            @Devel::Cover::DB::Criteria_short, "total" ],
         criteria => [ grep !/path|time/,
@@ -639,7 +640,7 @@ http://www.pjcj.net
 <head>
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
     <meta http-equiv="Content-Language" content="en-us"></meta>
-    <link rel="stylesheet" type="text/css" href="/collection.css"></link>
+    <link rel="stylesheet" type="text/css" href="/[% subdir %]collection.css"></link>
     <title> [% title %] </title>
 </head>
 <body>
@@ -653,7 +654,7 @@ http://www.pjcj.net
     <br/>
 
     Please report problems with this site to the
-    <a href="https://github.com/pjcj/Devel--Cover/issues">issue tracker</a>
+    <a href="https://github.com/pjcj/Devel--Cover/issues">issue tracker</a>.
 
     <br/>
     <br/>
@@ -709,7 +710,7 @@ $Templates{module_by_start} = <<'EOT';
         <tr align="right" valign="middle">
             <td align="left">
                 [% IF vals.$m.link %]
-                    <a href="[%- vals.$m.link -%]">
+                    <a href="/[% subdir %][%- vals.$m.link -%]">
                         [% module.name || module.module %]
                     </a>
                 [% ELSE %]

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdevel-cover-perl.git

