r72422 - in /trunk/libapache2-mod-perl2/debian: libapache2-mod-perl2-doc.doc-base transform_pod2html.pl

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

Author: periapt-guest
Date: Sat Apr  9 20:37:37 2011
New Revision: 72422

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72422
Log:
hopefully removed top-level docs safely now

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

Modified: trunk/libapache2-mod-perl2/debian/libapache2-mod-perl2-doc.doc-base
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapache2-mod-perl2/debian/libapache2-mod-perl2-doc.doc-base?rev=72422&op=diff
==============================================================================
--- trunk/libapache2-mod-perl2/debian/libapache2-mod-perl2-doc.doc-base (original)
+++ trunk/libapache2-mod-perl2/debian/libapache2-mod-perl2-doc.doc-base Sat Apr  9 20:37:37 2011
@@ -13,6 +13,6 @@
  /usr/share/doc/libapache2-mod-perl2-doc/todo
 
 Format: HTML
-Index: /usr/share/doc/libapache2-mod-perl2-doc/docs/index.html
+Index: /usr/share/doc/libapache2-mod-perl2-doc/index.html
 Files: /usr/share/doc/libapache2-mod-perl2-doc/docs
 

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=72422&op=diff
==============================================================================
--- trunk/libapache2-mod-perl2/debian/transform_pod2html.pl (original)
+++ trunk/libapache2-mod-perl2/debian/transform_pod2html.pl Sat Apr  9 20:37:37 2011
@@ -15,8 +15,6 @@
 Readonly my $CUR_DIR => $ARGV[0];
 Readonly my $SRC_DIR => $ARGV[1];
 Readonly my $DEST_DIR => $ARGV[2];
-#Readonly my $HTML_ROOT =>
-#    '/cgi-bin/dwww/usr/share/doc/libapache2-mod-perl2-doc';
 croak "No source directory: $SRC_DIR" if not -d $SRC_DIR;
 croak "No destination directory: $DEST_DIR" if not -d $DEST_DIR;
 
@@ -27,7 +25,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);
+$template->param(%{$data{sections}->[0]});
 open my $fh,'>', "$CUR_DIR/$DEST_DIR/index.html";
 print {$fh} $template->output;
 close$fh;
@@ -60,7 +58,6 @@
             "--podroot=$CUR_DIR",
             "--verbose",
             "--htmldir=$CUR_DIR/debian",
-#            "--htmlroot=$HTML_ROOT",
         );
     }
     else {