From: short <>
Date: Fri, 16 May 2003 12:33:28 +0000 (+0000)
Subject: +use lib for $HOME/lib/perl5/
X-Git-Tag: bp_modperl~15
X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=2cb70e9e3791a1b9021ff256eb503f98c5c40c99;ds=sidebyside

+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
--- 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/([^/]*)/#;