Parent Directory | Revision Log | Patch
revision 169 by dpavlin, Mon Nov 2 16:09:40 2009 UTC | revision 170 by dpavlin, Tue Nov 3 17:19:12 2009 UTC | |
---|---|---|
# | Line 12 use File::Slurp; | Line 12 use File::Slurp; |
12 | ||
13 | my @cloud = qw(localhost tab.lan llin.lan); | my @cloud = qw(localhost tab.lan llin.lan); |
14 | ||
15 | my $cloud_path = '/srv/Sack/etc/lib'; | my $cloud_path = $ENV{CLOUD} || '/srv/Sack/etc/lib'; |
16 | @cloud = read_file $cloud_path; | @cloud = read_file $cloud_path; |
17 | @cloud = map { chomp $_; $_ } @cloud; | @cloud = map { chomp $_; $_ } @cloud; |
18 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |