URL relativization.

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

diff --git a/project/captive/doc/TODO.html.pl b/project/captive/doc/TODO.html.pl
index cfad1b0..30e052b 100755 (executable)
--- a/project/captive/doc/TODO.html.pl
+++ b/project/captive/doc/TODO.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(
@@ -57,19 +57,19 @@ print <<"HERE";
                        'Mark Russinovich' ]}.
 
        <p>I&nbsp;assume its execution falls completely
-       @{[ a_href '#existing_emulation','out of scope' ]}
+       @{[ a_href 'Architecture.html.pl#existing_emulation','out of scope' ]}
        of this project as it is W32 userland.</p>
 
        <p>This possibility was not yet investigated in any way.</p>
 
 
 <a name="todo_surprise"><h1>TODO: NTFS Support for
-               <span class="productname">@{[ a_href 'http://surprise.sourceforge.net/','Partition Surprise' ]}</span></h1></a>
+               <span class="productname">@{[ a_href '/project/surprise/','Partition Surprise' ]}</span></h1></a>
 
        <p>Although there currently exists
        <span class="productname">@{[ a_href 'http://mlf.linux.rulez.org/mlf/ezaz/ntfsresize.html','ntfsresize' ]}</span>
        I am not sure whether it is really reliable for all NTFS filesystems.
-       <span class="productname">@{[ a_href 'http://surprise.sourceforge.net/','Partition Surprise' ]}</span>
+       <span class="productname">@{[ a_href '/project/surprise/','Partition Surprise' ]}</span>
        is the only partition manager capable of safely resize the disk
        by using just the original W32 filesystem driver by full rebuild of
        filesystem metadata.