X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2Flist.cgi.pl;h=ab24a2549b67dd4286d319f913b6776f9b58fa16;hp=983dd9c237e31e8053934710ca3b0cd2b2a74325;hb=2cb70e9e3791a1b9021ff256eb503f98c5c40c99;hpb=810897e5320b6db7edca6ed9eaa113cbcdfe0cf4

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