From: short <> Date: Sat, 4 Oct 2003 11:43:52 +0000 (+0000) Subject: Fixed Id tracking. X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=4c2efa7788b9da47bdbd4d5956e8657ee1065998 Fixed Id tracking. --- diff --git a/CV.html.pl b/CV.html.pl index 19ef2b1..58c3fa8 100755 --- a/CV.html.pl +++ b/CV.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/SendMsg.pl b/SendMsg.pl index 08ab08e..4a8528a 100755 --- a/SendMsg.pl +++ b/SendMsg.pl @@ -28,7 +28,7 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/AutoGen/Index.html.pl b/project/AutoGen/Index.html.pl index b917eb0..ffdf9b6 100755 --- a/project/AutoGen/Index.html.pl +++ b/project/AutoGen/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/CasioA/Index.html.pl b/project/CasioA/Index.html.pl index 297bc76..02ecc55 100755 --- a/project/CasioA/Index.html.pl +++ b/project/CasioA/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/FordFulk/Index.html.pl b/project/FordFulk/Index.html.pl index 79bc547..9104744 100755 --- a/project/FordFulk/Index.html.pl +++ b/project/FordFulk/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/Heat/Index.html.pl b/project/Heat/Index.html.pl index 61ed75e..c79bf15 100755 --- a/project/Heat/Index.html.pl +++ b/project/Heat/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/Index.html.pl b/project/Index.html.pl index 5e2c20b..b8e3889 100755 --- a/project/Index.html.pl +++ b/project/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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) }; diff --git a/project/Islet/Index.html.pl b/project/Islet/Index.html.pl index a97494e..2c4ec61 100755 --- a/project/Islet/Index.html.pl +++ b/project/Islet/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/LaserGame/Index.html.pl b/project/LaserGame/Index.html.pl index d8ffcc8..e068562 100755 --- a/project/LaserGame/Index.html.pl +++ b/project/LaserGame/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/Nokia61/Index.html.pl b/project/Nokia61/Index.html.pl index 5c938e6..4fb49e7 100755 --- a/project/Nokia61/Index.html.pl +++ b/project/Nokia61/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/PortDiag/Index.html.pl b/project/PortDiag/Index.html.pl index b3b6b94..ce5c3a8 100755 --- a/project/PortDiag/Index.html.pl +++ b/project/PortDiag/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/ShortRel/Index.html.pl b/project/ShortRel/Index.html.pl index 0fb60c9..ff9f832 100755 --- a/project/ShortRel/Index.html.pl +++ b/project/ShortRel/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/TraceFS/Index.html.pl b/project/TraceFS/Index.html.pl index 3875940..29339e2 100755 --- a/project/TraceFS/Index.html.pl +++ b/project/TraceFS/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/badblock_guess/Index.html.pl b/project/badblock_guess/Index.html.pl index 5cd6015..c2122e6 100755 --- a/project/badblock_guess/Index.html.pl +++ b/project/badblock_guess/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl index 474ab42..b6b1ed1 100755 --- a/project/captive/Index.html.pl +++ b/project/captive/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/checkListItem.pl b/project/checkListItem.pl index ed4e15f..dfb5529 100755 --- a/project/checkListItem.pl +++ b/project/checkListItem.pl @@ -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; diff --git a/project/checkstatic/Index.html.pl b/project/checkstatic/Index.html.pl index e625301..938f4fe 100755 --- a/project/checkstatic/Index.html.pl +++ b/project/checkstatic/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/cvsbranchdiff/Index.html.pl b/project/cvsbranchdiff/Index.html.pl index 70a945f..58410d2 100755 --- a/project/cvsbranchdiff/Index.html.pl +++ b/project/cvsbranchdiff/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/cvsutil/Index.html.pl b/project/cvsutil/Index.html.pl index f7d8b86..f4af5a3 100755 --- a/project/cvsutil/Index.html.pl +++ b/project/cvsutil/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/d1xnet/Index.html.pl b/project/d1xnet/Index.html.pl index 023ef0e..02e3ecd 100755 --- a/project/d1xnet/Index.html.pl +++ b/project/d1xnet/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/doswatch/Index.html.pl b/project/doswatch/Index.html.pl index 7186dcb..fc056af 100755 --- a/project/doswatch/Index.html.pl +++ b/project/doswatch/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/fixhtml/Index.html.pl b/project/fixhtml/Index.html.pl index 378df03..4e5a521 100755 --- a/project/fixhtml/Index.html.pl +++ b/project/fixhtml/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/ircon/Index.html.pl b/project/ircon/Index.html.pl index d2d24f1..a659a1e 100755 --- a/project/ircon/Index.html.pl +++ b/project/ircon/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/kix/Index.html.pl b/project/kix/Index.html.pl index b5a8a6a..b96b7f7 100755 --- a/project/kix/Index.html.pl +++ b/project/kix/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/kware/Index.html.pl b/project/kware/Index.html.pl index fc02755..c1f6ce9 100755 --- a/project/kware/Index.html.pl +++ b/project/kware/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/line9k/Index.html.pl b/project/line9k/Index.html.pl index dc8beec..34c58a9 100755 --- a/project/line9k/Index.html.pl +++ b/project/line9k/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/mdsms/Index.html.pl b/project/mdsms/Index.html.pl index c7de2ce..bf32179 100755 --- a/project/mdsms/Index.html.pl +++ b/project/mdsms/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/mod_auth_tacacs/Index.html.pl b/project/mod_auth_tacacs/Index.html.pl index dbec51d..1f1b1b3 100755 --- a/project/mod_auth_tacacs/Index.html.pl +++ b/project/mod_auth_tacacs/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/mot2as/Index.html.pl b/project/mot2as/Index.html.pl index b2dab0c..0f44a9a 100755 --- a/project/mot2as/Index.html.pl +++ b/project/mot2as/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/netstat/Index.html.pl b/project/netstat/Index.html.pl index be9a9be..3296463 100755 --- a/project/netstat/Index.html.pl +++ b/project/netstat/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/oslik/Index.html.pl b/project/oslik/Index.html.pl index 04be1dd..8c8c379 100755 --- a/project/oslik/Index.html.pl +++ b/project/oslik/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/patchd2/Index.html.pl b/project/patchd2/Index.html.pl index 7c30114..3890e7f 100755 --- a/project/patchd2/Index.html.pl +++ b/project/patchd2/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/pipebuf/Index.html.pl b/project/pipebuf/Index.html.pl index 2d97ffc..de57c40 100755 --- a/project/pipebuf/Index.html.pl +++ b/project/pipebuf/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/ppp9k/Index.html.pl b/project/ppp9k/Index.html.pl index 76ec633..e056c4b 100755 --- a/project/ppp9k/Index.html.pl +++ b/project/ppp9k/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/redirector_ad/Index.html.pl b/project/redirector_ad/Index.html.pl index e84ab21..9a33401 100755 --- a/project/redirector_ad/Index.html.pl +++ b/project/redirector_ad/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/smbfs/Index.html.pl b/project/smbfs/Index.html.pl index 2edcbfe..222c15f 100755 --- a/project/smbfs/Index.html.pl +++ b/project/smbfs/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/sshpatch/Index.html.pl b/project/sshpatch/Index.html.pl index 43f63b9..9f75b3c 100755 --- a/project/sshpatch/Index.html.pl +++ b/project/sshpatch/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/step/Index.html.pl b/project/step/Index.html.pl index a3d7887..7b16ae0 100755 --- a/project/step/Index.html.pl +++ b/project/step/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/surprise/Index.html.pl b/project/surprise/Index.html.pl index 5b8b746..746466f 100755 --- a/project/surprise/Index.html.pl +++ b/project/surprise/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/tac_plus/Index.html.pl b/project/tac_plus/Index.html.pl index 9542b92..56ae6f0 100755 --- a/project/tac_plus/Index.html.pl +++ b/project/tac_plus/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/tcp_rto/Index.html.pl b/project/tcp_rto/Index.html.pl index d22c83e..70810a2 100755 --- a/project/tcp_rto/Index.html.pl +++ b/project/tcp_rto/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/tcpdump/Index.html.pl b/project/tcpdump/Index.html.pl index 4abf4a0..5eabacb 100755 --- a/project/tcpdump/Index.html.pl +++ b/project/tcpdump/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/timeplan/Index.html.pl b/project/timeplan/Index.html.pl index 2a4aa5c..ac46a0a 100755 --- a/project/timeplan/Index.html.pl +++ b/project/timeplan/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/vblib/Index.html.pl b/project/vblib/Index.html.pl index 920bb85..65f4b0c 100755 --- a/project/vblib/Index.html.pl +++ b/project/vblib/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/winvnc/Index.html.pl b/project/winvnc/Index.html.pl index c1fe864..027f6f0 100755 --- a/project/winvnc/Index.html.pl +++ b/project/winvnc/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/wllib/Index.html.pl b/project/wllib/Index.html.pl index 687a970..826d340 100755 --- a/project/wllib/Index.html.pl +++ b/project/wllib/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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( diff --git a/project/xbill/Index.html.pl b/project/xbill/Index.html.pl index a7eb0c8..8d61080 100755 --- a/project/xbill/Index.html.pl +++ b/project/xbill/Index.html.pl @@ -27,8 +27,8 @@ use warnings; BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[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(