develooper Front page | perl.perl5.porters | Postings from April 2010

[perl #74158] [PATCH] drop <body> "style" attribute from Pod::Htmloutput

Thread Previous
From:
Aristotle Pagaltzis
Date:
April 11, 2010 19:57
Subject:
[perl #74158] [PATCH] drop <body> "style" attribute from Pod::Htmloutput
Message ID:
3516848ea268f4ff16f00b4d221c178760ae7e3e.1271040713.git.pagaltzis@gmx.de
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 -->
-- 
1.7.0.2

Thread Previous


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