From 2cb70e9e3791a1b9021ff256eb503f98c5c40c99 Mon Sep 17 00:00:00 2001
From: short <>
Date: Fri, 16 May 2003 12:33:28 +0000
Subject: [PATCH] +use lib for $HOME/lib/perl5/ Non-existing "CVS/Entries.Log"
 is not fatal

---
 project/list.cgi.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/project/list.cgi.pl b/project/list.cgi.pl
index 983dd9c..ab24a25 100755
--- 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/([^/]*)/#;
-- 
1.8.3.1