Fixed Id tracking.

[www.jankratochvil.net.git] / project / Index.html.pl

diff --git a/project/Index.html.pl b/project/Index.html.pl
index 5e2c20b..b8e3889 100755 (executable)
--- 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/,<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) };