develooper 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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About