git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+use lib for $HOME/lib/perl5/
[www.jankratochvil.net.git]
/
project
/
list.cgi.pl
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 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;
use lib "../";
use My::Web;
require CGI;
@@
-57,9
+59,7
@@
HERE
my %dirs;
for my $ENTRIES (ENTRIES,ENTRIES_LOG) {
local *E;
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/([^/]*)/#;
while (<E>) {
chomp;
do { $dirs{$1}=1; next; } if m#^(?:A )?D/([^/]*)/#;