From d78f8a09255799fe9376f57e611e1f2ea829ba97 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 1 Nov 2006 10:11:01 +0000 Subject: [PATCH] Fix to work with recently changed library directory specification. The setting of PERL5LIB in the Apache configuration meant that layout.mc no longer set the global LIBDIR, so now we fetch the IRSpyLibDir configuration manually. Much cleaner. --- web/htdocs/details/doc.mc | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/web/htdocs/details/doc.mc b/web/htdocs/details/doc.mc index 8d71d8a..beae59c 100644 --- a/web/htdocs/details/doc.mc +++ b/web/htdocs/details/doc.mc @@ -1,20 +1,21 @@ -%# $Id: doc.mc,v 1.1 2006-09-28 16:48:20 mike Exp $ +%# $Id: doc.mc,v 1.2 2006-11-01 10:11:01 mike Exp $ <%once> use Pod::Html; use IO::Dir; <%perl> +my $libdir = $r->dir_config("IRSpyLibDir"); my $module = $r->param("module"); if (!defined $module) { print " \n"; } else { print "Documentation for '$module'\n"; { my $dir = "/tmp/pod2html"; mkdir $dir; chdir $dir || die $!; } # For some reason, output to standard output doesn't appear my $name = "ZOOM.html"; - pod2html("$LIBDIR/$module", "--outfile=$name"); + pod2html("$libdir/$module", "--outfile=$name"); open F, "<$name" or die "can't open '$name': $!"; my $text = join("", ); close F; -- 1.7.10.4