Front page | perl.perl5.porters |
Postings from January 2012
[perl #74158] perl2html output concerns
Thread Next
From:
Father Chrysostomos via RT
Date:
January 7, 2012 01:13
Subject:
[perl #74158] perl2html output concerns
Message ID:
rt-3.6.HEAD-6590-1325927614-722.74158-15-0@perl.org
Can Marc Green comment on this?
On Sun Apr 11 19:58:06 2010, aristotle wrote:
> Fixed by the included patch. (Sorry, couldn’t yet figure out how
> to make `git send-email` work with my setup, or how to make mutt
> recognise MIME multipart draft messages.)
>
> ---
> lib/Pod/Html.pm | 6 ++----
> lib/Pod/t/htmlescp.t | 2 +-
> lib/Pod/t/htmllink.t | 2 +-
> lib/Pod/t/htmlview.t | 2 +-
> 4 files changed, 5 insertions(+), 7 deletions(-)
>
> diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
> index 6174dd7..8cd981b 100644
> --- a/lib/Pod/Html.pm
> +++ b/lib/Pod/Html.pm
> @@ -455,14 +455,12 @@ sub pod2html {
> $Title = html_escape($Title);
>
> my $csslink = '';
> - my $bodystyle = ' style="background-color: white"';
> - my $tdstyle = ' style="background-color: #cccccc"';
> + my $tdstyle = ' style="background-color: #ccc; color: #000"';
>
> if ($Css) {
> $csslink = qq(\n<link rel="stylesheet" href="$Css"
> type="text/css" />);
> $csslink =~ s,\\,/,g;
> $csslink =~ s,(/.):,$1|,;
> - $bodystyle = '';
> $tdstyle = '';
> }
>
> @@ -484,7 +482,7 @@ END_OF_BLOCK
> <link rev="made" href="mailto:$Config{perladmin}" />
> </head>
>
> -<body$bodystyle>
> +<body>
> $block
> END_OF_HEAD
>
> diff --git a/lib/Pod/t/htmlescp.t b/lib/Pod/t/htmlescp.t
> index 95942cd..acabf48 100644
> --- a/lib/Pod/t/htmlescp.t
> +++ b/lib/Pod/t/htmlescp.t
> @@ -22,7 +22,7 @@ __DATA__
> <link rev="made" href="mailto:[PERLADMIN]" />
> </head>
>
> -<body style="background-color: white">
> +<body>
>
>
> <!-- INDEX BEGIN -->
> diff --git a/lib/Pod/t/htmllink.t b/lib/Pod/t/htmllink.t
> index ab11796..19baa62 100644
> --- a/lib/Pod/t/htmllink.t
> +++ b/lib/Pod/t/htmllink.t
> @@ -22,7 +22,7 @@ __DATA__
> <link rev="made" href="mailto:[PERLADMIN]" />
> </head>
>
> -<body style="background-color: white">
> +<body>
>
>
> <!-- INDEX BEGIN -->
> diff --git a/lib/Pod/t/htmlview.t b/lib/Pod/t/htmlview.t
> index 03fe6e5..c445081 100644
> --- a/lib/Pod/t/htmlview.t
> +++ b/lib/Pod/t/htmlview.t
> @@ -22,7 +22,7 @@ __DATA__
> <link rev="made" href="mailto:[PERLADMIN]" />
> </head>
>
> -<body style="background-color: white">
> +<body>
>
>
> <!-- INDEX BEGIN -->
--
Father Chrysostomos
---
via perlbug: queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=74158
Thread Next
-
[perl #74158] perl2html output concerns
by Father Chrysostomos via RT