Parent Directory | Revision Log | Patch
revision 208 by dpavlin, Sun Nov 8 22:56:46 2009 UTC | revision 209 by dpavlin, Sat Nov 21 13:59:41 2009 UTC | |
---|---|---|
# | Line 17 use lib '/srv/Sack/lib'; | Line 17 use lib '/srv/Sack/lib'; |
17 | use Sack::Merge; | use Sack::Merge; |
18 | ||
19 | my @cloud; | my @cloud; |
20 | my $cloud_path = $ENV{CLOUD} || die "start with: CLOUD=etc/cloud perl -I/srv/Sack/lib $0\n"; | my $cloud_path = $ENV{CLOUD} || "etc/cloud"; |
21 | die "start with: CLOUD=etc/cloud perl -I/srv/Sack/lib $0\n" unless -e $cloud_path; | |
22 | @cloud = read_file $cloud_path; | @cloud = read_file $cloud_path; |
23 | @cloud = map { chomp $_; $_ } @cloud; | @cloud = map { chomp $_; $_ } @cloud; |
24 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |