Parent Directory | Revision Log | Patch
revision 540 by dpavlin, Mon Sep 13 18:26:05 2010 UTC | revision 541 by dpavlin, Sat Oct 9 12:28:01 2010 UTC | |
---|---|---|
# | Line 81 sub all_conf { | Line 81 sub all_conf { |
81 | foreach my $file ( glob("$path/*"), glob("$path/*/*") ) { | foreach my $file ( glob("$path/*"), glob("$path/*/*") ) { |
82 | my $name = $file; | my $name = $file; |
83 | $name =~ s{^$path/+}{} || die "can't remove $path from $name"; | $name =~ s{^$path/+}{} || die "can't remove $path from $name"; |
84 | next if -d $file; | |
85 | $conf->{ $name } = | $conf->{ $name } = |
86 | -l $file ? readlink $file : | -l $file ? readlink $file : |
87 | -f $file ? read_file $file : | -f $file ? read_file $file : |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |