Non-existing "CVS/Entries.Log" is not fatal
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;
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/([^/]*)/#;