r72466 - in /trunk/libapache2-mod-perl2/debian: libapache2-mod-perl2-doc.links transform_pod2html.pl

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Sun Apr 10 20:31:00 2011
New Revision: 72466

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72466
Log:
probably managed to get dwww to work without link

Removed:
    trunk/libapache2-mod-perl2/debian/libapache2-mod-perl2-doc.links
Modified:
    trunk/libapache2-mod-perl2/debian/transform_pod2html.pl

Modified: trunk/libapache2-mod-perl2/debian/transform_pod2html.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapache2-mod-perl2/debian/transform_pod2html.pl?rev=72466&op=diff
==============================================================================
--- trunk/libapache2-mod-perl2/debian/transform_pod2html.pl (original)
+++ trunk/libapache2-mod-perl2/debian/transform_pod2html.pl Sun Apr 10 20:31:00 2011
@@ -6,6 +6,8 @@
 use Pod::Html;
 use File::Path qw(make_path);
 use File::Copy;
+
+# Q: Would this be better with Pod::Tree?
 
 # dependencies
 use Readonly;
@@ -25,7 +27,7 @@
 
 find( \&transform_pod2html, $SRC_DIR );
 my $template = HTML::Template->new(filename=>"$CUR_DIR/debian/index.tmpl", die_on_bad_params=>0);
-$template->param(%{$data{sections}->[0]});
+$template->param(%{$data{sections}->[0]->{sections}->[0]});
 open my $fh,'>', "$CUR_DIR/$DEST_DIR/index.html";
 print {$fh} $template->output;
 close$fh;
@@ -41,7 +43,9 @@
     return if $ext ne 'pod' and $ext ne 'png';
     my ($v, $directories, $file) = File::Spec->splitpath($File::Find::name);
     my @dirs = File::Spec->splitdir($directories);
-#    shift @dirs; # should be docs
+    my $docs = shift @dirs;
+    unshift @dirs, '2.0';
+    unshift @dirs, $docs;
     my $catdirs = File::Spec->catdir(@dirs);
     my $newdir = File::Spec->catdir($CUR_DIR, $DEST_DIR, $catdirs);
     make_path($newdir, {verbose=>1});