URL relativization.

[www.jankratochvil.net.git] / project / captive / doc / APITypes.html.pl

diff --git a/project/captive/doc/APITypes.html.pl b/project/captive/doc/APITypes.html.pl
index ddc1992..7df4804 100755 (executable)
--- a/project/captive/doc/APITypes.html.pl
+++ b/project/captive/doc/APITypes.html.pl
@@ -27,8 +27,8 @@ use warnings;
 
 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
-require "CGI";
-use project::captive::doc::Macros;
+require CGI;
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(
@@ -92,7 +92,7 @@ print <<"HERE";
        <span class="fname">captivesym</span>-specific source file syntax please
        see its documentation:
        <span class="fname">@{[ a_href
-                       $W->{"top_dir"}.'/project/Pod2Html.html.pl?cvs=priv/captive/src/libcaptive/ke/captivesym.pl',
+                       '/project/Pod2Html.html.pl?cvs=priv/captive/src/libcaptive/ke/captivesym.pl',
                        'src/libcaptive/ke/captivesym.pl' ]}</span>
 
        <a name="functype_pass"><h2>Direct Pass to Original &quot;ntoskrnl.exe&quot;</h2></a>