+use lib for $HOME/lib/perl5/

Non-existing "CVS/Entries.Log" is not fatal

diff --git a/project/list.cgi.pl b/project/list.cgi.pl
index 983dd9c..ab24a25 100755 (executable)
--- a/project/list.cgi.pl
+++ b/project/list.cgi.pl
@@ -25,6 +25,8 @@ $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use lib qw(/home/short/lib/perl5/site_perl/5.6.0/i386-linux /home/short/lib/perl5/site_perl/5.6.0 /home/short/lib/perl5/site_perl/i386-linux /home/short/lib/perl5/site_perl /home/short/lib/perl5/5.6.0/i386-linux /home/short/lib/perl5/5.6.0 /home/short/lib/perl5/i386-linux /home/short/lib/perl5);
+
 use lib "../";
 use My::Web;
 require CGI;
@@ -57,9 +59,7 @@ HERE
 my %dirs;
 for my $ENTRIES (ENTRIES,ENTRIES_LOG) {
        local *E;
-       if (!open E,$ENTRIES) {
-               die "File \"".$ENTRIES."\" cannot be opened";
-               }
+       next if !open E,$ENTRIES;
        while (<E>) {
                chomp;
                do { $dirs{$1}=1; next; } if m#^(?:A )?D/([^/]*)/#;