Fixed Id tracking.
authorshort <>
Sat, 4 Oct 2003 11:43:52 +0000 (11:43 +0000)
committershort <>
Sat, 4 Oct 2003 11:43:52 +0000 (11:43 +0000)
47 files changed:
CV.html.pl
SendMsg.pl
project/AutoGen/Index.html.pl
project/CasioA/Index.html.pl
project/FordFulk/Index.html.pl
project/Heat/Index.html.pl
project/Index.html.pl
project/Islet/Index.html.pl
project/LaserGame/Index.html.pl
project/Nokia61/Index.html.pl
project/PortDiag/Index.html.pl
project/ShortRel/Index.html.pl
project/TraceFS/Index.html.pl
project/badblock_guess/Index.html.pl
project/captive/Index.html.pl
project/checkListItem.pl
project/checkstatic/Index.html.pl
project/cvsbranchdiff/Index.html.pl
project/cvsutil/Index.html.pl
project/d1xnet/Index.html.pl
project/doswatch/Index.html.pl
project/fixhtml/Index.html.pl
project/ircon/Index.html.pl
project/kix/Index.html.pl
project/kware/Index.html.pl
project/line9k/Index.html.pl
project/mdsms/Index.html.pl
project/mod_auth_tacacs/Index.html.pl
project/mot2as/Index.html.pl
project/netstat/Index.html.pl
project/oslik/Index.html.pl
project/patchd2/Index.html.pl
project/pipebuf/Index.html.pl
project/ppp9k/Index.html.pl
project/redirector_ad/Index.html.pl
project/smbfs/Index.html.pl
project/sshpatch/Index.html.pl
project/step/Index.html.pl
project/surprise/Index.html.pl
project/tac_plus/Index.html.pl
project/tcp_rto/Index.html.pl
project/tcpdump/Index.html.pl
project/timeplan/Index.html.pl
project/vblib/Index.html.pl
project/winvnc/Index.html.pl
project/wllib/Index.html.pl
project/xbill/Index.html.pl

index 19ef2b1..58c3fa8 100755 (executable)
@@ -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';
-require 'My::Project';
+require CGI;
+Wrequire 'My::Project';
 
 
 my $W=My::Web->init(
index 08ab08e..4a8528a 100755 (executable)
@@ -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;
 use Apache::Constants qw(HTTP_NO_CONTENT);
-require "Mail::Send";
+require Mail::Send;
 
 
 my $W=My::Web->init(
index b917eb0..ffdf9b6 100755 (executable)
@@ -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;
-use My::Project;
-use project::AutoGen::ListItem;
+Wuse 'My::Project';
+Wuse 'project::AutoGen::ListItem';
 
 
 My::Project->init_project(
index 297bc76..02ecc55 100755 (executable)
@@ -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;
-use My::Project;
-use project::CasioA::ListItem;
+Wuse 'My::Project';
+Wuse 'project::CasioA::ListItem';
 
 
 My::Project->init_project(
index 79bc547..9104744 100755 (executable)
@@ -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;
-use My::Project;
-use project::FordFulk::ListItem;
+Wuse 'My::Project';
+Wuse 'project::FordFulk::ListItem';
 
 
 My::Project->init_project(
index 61ed75e..c79bf15 100755 (executable)
@@ -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;
-use My::Project;
-use project::Heat::ListItem;
+Wuse 'My::Project';
+Wuse 'project::Heat::ListItem';
 
 
 My::Project->init_project(
index 5e2c20b..b8e3889 100755 (executable)
@@ -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';
-require 'My::Project';
+require CGI;
+Wrequire 'My::Project';
 
 use constant ENTRIES=>"CVS/Entries";
 use constant ENTRIES_LOG=>"CVS/Entries.Log";
@@ -72,7 +72,7 @@ for my $ENTRIES (ENTRIES,ENTRIES_LOG) {
 
 my %item;
 for my $dir (keys(%dirs)) {
-       require "project::${dir}::ListItem";
+       Wrequire "project::${dir}::ListItem";
        my $item=eval('\@project::'.$dir.'::ListItem::ListItem');
        do { warn "Broken project/$dir/ListItem.pm"; next; } if !defined $item;
        $item{$dir}={ My::Project::project_arr_to_hash(@$item) };
index a97494e..2c4ec61 100755 (executable)
@@ -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;
-use My::Project;
-use project::Islet::ListItem;
+Wuse 'My::Project';
+Wuse 'project::Islet::ListItem';
 
 
 My::Project->init_project(
index d8ffcc8..e068562 100755 (executable)
@@ -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;
-use My::Project;
-use project::LaserGame::ListItem;
+Wuse 'My::Project';
+Wuse 'project::LaserGame::ListItem';
 
 
 My::Project->init_project(
index 5c938e6..4fb49e7 100755 (executable)
@@ -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;
-use My::Project;
-use project::Nokia61::ListItem;
+Wuse 'My::Project';
+Wuse 'project::Nokia61::ListItem';
 
 
 My::Project->init_project(
index b3b6b94..ce5c3a8 100755 (executable)
@@ -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;
-use My::Project;
-use project::PortDiag::ListItem;
+Wuse 'My::Project';
+Wuse 'project::PortDiag::ListItem';
 
 
 My::Project->init_project(
index 0fb60c9..ff9f832 100755 (executable)
@@ -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;
-use My::Project;
-use project::ShortRel::ListItem;
+Wuse 'My::Project';
+Wuse 'project::ShortRel::ListItem';
 
 
 My::Project->init_project(
index 3875940..29339e2 100755 (executable)
@@ -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;
-use My::Project;
-use project::TraceFS::ListItem;
+Wuse 'My::Project';
+Wuse 'project::TraceFS::ListItem';
 
 
 My::Project->init_project(
index 5cd6015..c2122e6 100755 (executable)
@@ -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;
-use My::Project;
-use project::badblock_guess::ListItem;
+Wuse 'My::Project';
+Wuse 'project::badblock_guess::ListItem';
 
 
 My::Project->init_project(
index 474ab42..b6b1ed1 100755 (executable)
@@ -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;
-use My::Project;
-use project::captive::ListItem;
+Wuse 'My::Project';
+Wuse 'project::captive::ListItem';
 
 
 my $W=My::Project->init_project(
index ed4e15f..dfb5529 100755 (executable)
@@ -50,7 +50,7 @@ for my $ENTRIES (ENTRIES,ENTRIES_LOG) {
 
 my %item;
 for my $dir (keys(%dirs)) {
-       require "$dir/ListItem.pm";
+       Wrequire "$dir/ListItem.pm";
        my $item=eval('\%My::Project::'.$dir.'::ListItem');
        do { warn "Broken $dir/List.pm"; next; } if !defined %$item;
        $item{$dir}=$item;
index e625301..938f4fe 100755 (executable)
@@ -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;
-use My::Project;
-use project::checkstatic::ListItem;
+Wuse 'My::Project';
+Wuse 'project::checkstatic::ListItem';
 
 
 My::Project->init_project(
index 70a945f..58410d2 100755 (executable)
@@ -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;
-use My::Project;
-use project::cvsbranchdiff::ListItem;
+Wuse 'My::Project';
+Wuse 'project::cvsbranchdiff::ListItem';
 
 
 My::Project->init_project(
index f7d8b86..f4af5a3 100755 (executable)
@@ -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;
-use My::Project;
-use project::cvsutil::ListItem;
+Wuse 'My::Project';
+Wuse 'project::cvsutil::ListItem';
 
 
 My::Project->init_project(
index 023ef0e..02e3ecd 100755 (executable)
@@ -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;
-use My::Project;
-use project::d1xnet::ListItem;
+Wuse 'My::Project';
+Wuse 'project::d1xnet::ListItem';
 
 
 My::Project->init_project(
index 7186dcb..fc056af 100755 (executable)
@@ -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;
-use My::Project;
-use project::doswatch::ListItem;
+Wuse 'My::Project';
+Wuse 'project::doswatch::ListItem';
 
 
 My::Project->init_project(
index 378df03..4e5a521 100755 (executable)
@@ -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;
-use My::Project;
-use project::fixhtml::ListItem;
+Wuse 'My::Project';
+Wuse 'project::fixhtml::ListItem';
 
 
 My::Project->init_project(
index d2d24f1..a659a1e 100755 (executable)
@@ -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;
-use My::Project;
-use project::ircon::ListItem;
+Wuse 'My::Project';
+Wuse 'project::ircon::ListItem';
 
 
 My::Project->init_project(
index b5a8a6a..b96b7f7 100755 (executable)
@@ -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;
-use My::Project;
-use project::kix::ListItem;
+Wuse 'My::Project';
+Wuse 'project::kix::ListItem';
 
 
 My::Project->init_project(
index fc02755..c1f6ce9 100755 (executable)
@@ -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;
-use My::Project;
-use project::kware::ListItem;
+Wuse 'My::Project';
+Wuse 'project::kware::ListItem';
 
 
 My::Project->init_project(
index dc8beec..34c58a9 100755 (executable)
@@ -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;
-use My::Project;
-use project::line9k::ListItem;
+Wuse 'My::Project';
+Wuse 'project::line9k::ListItem';
 
 
 My::Project->init_project(
index c7de2ce..bf32179 100755 (executable)
@@ -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;
-use My::Project;
-use project::mdsms::ListItem;
+Wuse 'My::Project';
+Wuse 'project::mdsms::ListItem';
 
 
 My::Project->init_project(
index dbec51d..1f1b1b3 100755 (executable)
@@ -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;
-use My::Project;
-use project::mod_auth_tacacs::ListItem;
+Wuse 'My::Project';
+Wuse 'project::mod_auth_tacacs::ListItem';
 
 
 My::Project->init_project(
index b2dab0c..0f44a9a 100755 (executable)
@@ -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;
-use My::Project;
-use project::mot2as::ListItem;
+Wuse 'My::Project';
+Wuse 'project::mot2as::ListItem';
 
 
 My::Project->init_project(
index be9a9be..3296463 100755 (executable)
@@ -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;
-use My::Project;
-use project::netstat::ListItem;
+Wuse 'My::Project';
+Wuse 'project::netstat::ListItem';
 
 
 My::Project->init_project(
index 04be1dd..8c8c379 100755 (executable)
@@ -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;
-use My::Project;
-use project::oslik::ListItem;
+Wuse 'My::Project';
+Wuse 'project::oslik::ListItem';
 
 
 My::Project->init_project(
index 7c30114..3890e7f 100755 (executable)
@@ -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;
-use My::Project;
-use project::patchd2::ListItem;
+Wuse 'My::Project';
+Wuse 'project::patchd2::ListItem';
 
 
 My::Project->init_project(
index 2d97ffc..de57c40 100755 (executable)
@@ -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;
-use My::Project;
-use project::pipebuf::ListItem;
+Wuse 'My::Project';
+Wuse 'project::pipebuf::ListItem';
 
 
 My::Project->init_project(
index 76ec633..e056c4b 100755 (executable)
@@ -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;
-use My::Project;
-use project::ppp9k::ListItem;
+Wuse 'My::Project';
+Wuse 'project::ppp9k::ListItem';
 
 
 My::Project->init_project(
index e84ab21..9a33401 100755 (executable)
@@ -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;
-use My::Project;
-use project::redirector_ad::ListItem;
+Wuse 'My::Project';
+Wuse 'project::redirector_ad::ListItem';
 
 
 My::Project->init_project(
index 2edcbfe..222c15f 100755 (executable)
@@ -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;
-use My::Project;
-use project::smbfs::ListItem;
+Wuse 'My::Project';
+Wuse 'project::smbfs::ListItem';
 
 
 My::Project->init_project(
index 43f63b9..9f75b3c 100755 (executable)
@@ -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;
-use My::Project;
-use project::sshpatch::ListItem;
+Wuse 'My::Project';
+Wuse 'project::sshpatch::ListItem';
 
 
 My::Project->init_project(
index a3d7887..7b16ae0 100755 (executable)
@@ -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;
-use My::Project;
-use project::step::ListItem;
+Wuse 'My::Project';
+Wuse 'project::step::ListItem';
 
 
 My::Project->init_project(
index 5b8b746..746466f 100755 (executable)
@@ -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;
-use My::Project;
-use project::surprise::ListItem;
+Wuse 'My::Project';
+Wuse 'project::surprise::ListItem';
 
 
 My::Project->init_project(
index 9542b92..56ae6f0 100755 (executable)
@@ -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;
-use My::Project;
-use project::tac_plus::ListItem;
+Wuse 'My::Project';
+Wuse 'project::tac_plus::ListItem';
 
 
 My::Project->init_project(
index d22c83e..70810a2 100755 (executable)
@@ -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;
-use My::Project;
-use project::tcp_rto::ListItem;
+Wuse 'My::Project';
+Wuse 'project::tcp_rto::ListItem';
 
 
 My::Project->init_project(
index 4abf4a0..5eabacb 100755 (executable)
@@ -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;
-use My::Project;
-use project::tcpdump::ListItem;
+Wuse 'My::Project';
+Wuse 'project::tcpdump::ListItem';
 
 
 My::Project->init_project(
index 2a4aa5c..ac46a0a 100755 (executable)
@@ -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;
-use My::Project;
-use project::timeplan::ListItem;
+Wuse 'My::Project';
+Wuse 'project::timeplan::ListItem';
 
 
 My::Project->init_project(
index 920bb85..65f4b0c 100755 (executable)
@@ -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;
-use My::Project;
-use project::vblib::ListItem;
+Wuse 'My::Project';
+Wuse 'project::vblib::ListItem';
 
 
 My::Project->init_project(
index c1fe864..027f6f0 100755 (executable)
@@ -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;
-use My::Project;
-use project::winvnc::ListItem;
+Wuse 'My::Project';
+Wuse 'project::winvnc::ListItem';
 
 
 My::Project->init_project(
index 687a970..826d340 100755 (executable)
@@ -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;
-use My::Project;
-use project::wllib::ListItem;
+Wuse 'My::Project';
+Wuse 'project::wllib::ListItem';
 
 
 My::Project->init_project(
index a7eb0c8..8d61080 100755 (executable)
@@ -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;
-use My::Project;
-use project::xbill::ListItem;
+Wuse 'My::Project';
+Wuse 'project::xbill::ListItem';
 
 
 My::Project->init_project(