Fixed doc crashes.

 - Bugreport by the courtesy of Karel Zatloukal.

diff --git a/project/captive/doc/APITypes.html.pl b/project/captive/doc/APITypes.html.pl
index 6e7ae95..64f078e 100755 (executable)
--- a/project/captive/doc/APITypes.html.pl
+++ b/project/captive/doc/APITypes.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/About.html.pl b/project/captive/doc/About.html.pl
index e1017a2..757f6ad 100755 (executable)
--- a/project/captive/doc/About.html.pl
+++ b/project/captive/doc/About.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/Architecture.html.pl b/project/captive/doc/Architecture.html.pl
index 7d5966e..48a4058 100755 (executable)
--- a/project/captive/doc/Architecture.html.pl
+++ b/project/captive/doc/Architecture.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/CacheManager.html.pl b/project/captive/doc/CacheManager.html.pl
index 70b89c3..778e412 100755 (executable)
--- a/project/captive/doc/CacheManager.html.pl
+++ b/project/captive/doc/CacheManager.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/CallType.html.pl b/project/captive/doc/CallType.html.pl
index ee50689..4346c95 100755 (executable)
--- a/project/captive/doc/CallType.html.pl
+++ b/project/captive/doc/CallType.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/Components.html.pl b/project/captive/doc/Components.html.pl
index b5853a2..9335919 100755 (executable)
--- a/project/captive/doc/Components.html.pl
+++ b/project/captive/doc/Components.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/Details.html.pl b/project/captive/doc/Details.html.pl
index 26c3f48..c540da7 100755 (executable)
--- a/project/captive/doc/Details.html.pl
+++ b/project/captive/doc/Details.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/LinuxNTFS.html.pl b/project/captive/doc/LinuxNTFS.html.pl
index 68adc14..fc5ffae 100755 (executable)
--- a/project/captive/doc/LinuxNTFS.html.pl
+++ b/project/captive/doc/LinuxNTFS.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/Related.html.pl b/project/captive/doc/Related.html.pl
index 9d594d1..5ba1abe 100755 (executable)
--- a/project/captive/doc/Related.html.pl
+++ b/project/captive/doc/Related.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/Reverse.html.pl b/project/captive/doc/Reverse.html.pl
index 4483bb1..868735f 100755 (executable)
--- a/project/captive/doc/Reverse.html.pl
+++ b/project/captive/doc/Reverse.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(

diff --git a/project/captive/doc/TODO.html.pl b/project/captive/doc/TODO.html.pl
index f3d5049..d0d7f4f 100755 (executable)
--- a/project/captive/doc/TODO.html.pl
+++ b/project/captive/doc/TODO.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(