From d42858b2260168e53e8801235314a23dcb49dee0 Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Thu, 25 Aug 2011 17:00:07 +0200
Subject: [PATCH] Give Pod-Html a more modern dist layout

---
 MANIFEST                           |  2 +-
 ext/Pod-Html/{ => lib/Pod}/Html.pm | 32 ++++++++++++++++----------------
 2 files changed, 17 insertions(+), 17 deletions(-)
 rename ext/Pod-Html/{ => lib/Pod}/Html.pm (99%)

diff --git a/MANIFEST b/MANIFEST
index 1ec5510..8abe439 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3606,7 +3606,7 @@ ext/PerlIO-via/hints/aix.pl	Hint for PerlIO::via for named architecture
 ext/PerlIO-via/t/via.t		See if PerlIO::via works
 ext/PerlIO-via/via.pm		PerlIO layer for layers in perl
 ext/PerlIO-via/via.xs		PerlIO layer for layers in perl
-ext/Pod-Html/Html.pm		Convert POD data to HTML
+ext/Pod-Html/lib/Pod/Html.pm	Convert POD data to HTML
 ext/Pod-Html/pod2html.PL	Precursor for translator to turn pod into HTML
 ext/Pod-Html/t/htmlescp.pod	pod2html escape test input data
 ext/Pod-Html/t/htmlescp.t	pod2html escape test
diff --git a/ext/Pod-Html/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
similarity index 99%
rename from ext/Pod-Html/Html.pm
rename to ext/Pod-Html/lib/Pod/Html.pm
index 2c5c441..b945419 100644
--- a/ext/Pod-Html/Html.pm
+++ b/ext/Pod-Html/lib/Pod/Html.pm
@@ -203,7 +203,7 @@ Display progress messages.  By default, they won't be displayed.
     htmlify($heading);
 
 Converts a pod section specification to a suitable section specification
-for HTML. Note that we keep spaces and special characters except 
+for HTML. Note that we keep spaces and special characters except
 C<", ?> (Netscape problem) and the hyphen (writer's problem...).
 
 =head2 anchorify
@@ -304,7 +304,7 @@ sub init_globals {
     $Listlevel = 0;		# current list depth
     @Listtype = ();		# list types for open lists
     $ListNewTerm = 0;		# indicates new term in definition list; used
-    				# to correctly open/close <dd> tags
+				# to correctly open/close <dd> tags
     $Ignore = 1;		# whether or not to format text.  we don't
 				#   format text until we hit our first pod
 				#   directive.
@@ -433,9 +433,9 @@ sub pod2html {
     # put a title in the HTML file if one wasn't specified
     if ($Title eq '') {
 	TITLE_SEARCH: {
- 	    for (my $i = 0; $i < @poddata; $i++) {
+	    for (my $i = 0; $i < @poddata; $i++) {
 		if ($poddata[$i] =~ /^=head1\s*NAME\b/m) {
- 		    for my $para ( @poddata[$i, $i+1] ) {
+		    for my $para ( @poddata[$i, $i+1] ) {
 			last TITLE_SEARCH
 			    if ($Title) = $para =~ /(\S+\s+-+.*\S)/s;
 		    }
@@ -446,7 +446,7 @@ sub pod2html {
     }
     if (!$Title and $Podfile =~ /\.pod\z/) {
 	# probably a split pod so take first =head[12] as title
- 	for (my $i = 0; $i < @poddata; $i++) {
+	for (my $i = 0; $i < @poddata; $i++) {
 	    last if ($Title) = $poddata[$i] =~ /^=head[12]\s*(.*)/;
 	}
 	warn "adopted '$Title' as title for $Podfile\n"
@@ -1371,7 +1371,7 @@ sub process_pre {
 		     # to avoid corrupting links that are #, file:, etc.
 		     my $old_url = $3 ;
 		     $old_url = "$Htmldir$old_url" if $old_url =~ m{^\/};
- 		     $url = relativize_url( "$old_url.html", $Htmlfileurl );
+		     $url = relativize_url( "$old_url.html", $Htmlfileurl );
 	          } else {
 		     $url = "$3.html" ;
 		  }
@@ -1465,7 +1465,7 @@ sub process_puretext {
     # process each word individually
     foreach my $word (@words) {
 	# skip space runs
- 	next if $word =~ /^\s*$/;
+	next if $word =~ /^\s*$/;
 	# see if we can infer a link or a function call
 	#
 	# NOTE: This is a word based search, it won't automatically
@@ -1614,7 +1614,7 @@ sub process_text1($$;$$){
         # b) C<...> is stripped and treated as C<>
         if( $par =~ /^C<(.*)>$/ ){
 	    my $text = depod( $1 );
- 	    return emit_C( $text, $lev > 1 || ($par =~ /[BI]</) );
+	    return emit_C( $text, $lev > 1 || ($par =~ /[BI]</) );
 	}
 
 	# analyze the contents
@@ -1677,7 +1677,7 @@ sub process_text1($$;$$){
             }
             ## now go for a section
             my $htmlsection = htmlify( $section );
- 	    $url = page_sect( $page, $htmlsection );
+	    $url = page_sect( $page, $htmlsection );
             if( $url ){
                 if( ! defined( $linktext ) ){
                     $linktext = $section;
@@ -1743,14 +1743,14 @@ sub process_text1($$;$$){
 	    return $res if !$3 && $lev > 1;
             if( $3 ){
 		$res .= process_text1( $lev, $rstr, $3, closing $4 );
- 	    }
+	    }
 	}
 	if( $lev == 1 ){
 	    $res .= pure_text( $$rstr );
 	} elsif( ! $Quiet ) {
             my $snippet = substr($$rstr,0,60);
-            warn "$0: $Podfile: undelimited $func<> in paragraph $Paragraph: '$snippet'.\n" 
-                
+            warn "$0: $Podfile: undelimited $func<> in paragraph $Paragraph: '$snippet'.\n"
+
 	}
 	$res = process_text_rfc_links($res);
     }
@@ -1777,8 +1777,8 @@ sub go_ahead($$$){
     }
     unless ($Quiet) {
         my $snippet = substr($$rstr,0,60);
-        warn "$0: $Podfile: undelimited $func<> in paragraph $Paragraph (go_ahead): '$snippet'.\n" 
-    }	        
+        warn "$0: $Podfile: undelimited $func<> in paragraph $Paragraph (go_ahead): '$snippet'.\n"
+    }
     return $res;
 }
 
@@ -1974,13 +1974,13 @@ sub coderef($$){
     my( $url );
 
     my $fid = fragment_id( $item );
-    
+
     if( defined( $page ) && $page ne "" ){
 	# we have been given a $page...
 	$page =~ s{::}{/}g;
 
         Carp::confess("Undefined fragment '$item' from fragment_id() in coderef() in $Podfile")
-            if !defined $fid;    
+            if !defined $fid;
 	# Do we take it? Item could be a section!
 	my $base = $Items{$fid} || "";
 	$base =~ s{[^/]*/}{};
-- 
2.7.4