ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-MP/MP/Config.pm
(Generate patch)

Comparing AnyEvent-MP/MP/Config.pm (file contents):
Revision 1.7 by root, Sat Sep 5 23:06:19 2009 UTC vs.
Revision 1.8 by root, Sat Nov 28 12:40:21 2009 UTC

… …
18 18
19use Carp (); 19use Carp ();
20use AnyEvent (); 20use AnyEvent ();
21use JSON::XS (); 21use JSON::XS ();
22 22
23our $CONFIG_FILE = $ENV{HOME} ? "$ENV{HOME}/.perl-anyevent-mp" 23our $CONFIG_FILE = exists $ENV{PERL_ANYEVENT_MP_RC} ? $ENV{PERL_ANYEVENT_MP_RC}
24 : "$ENV{APPDATA}/perl-anyevent-mp"; 24 : exists $ENV{HOME} ? "$ENV{HOME}/.perl-anyevent-mp"
25 : "$ENV{APPDATA}/perl-anyevent-mp";
25 26
26our %CFG; 27our %CFG;
27 28
28sub load { 29sub load {
29 if (open my $fh, "<:raw", $CONFIG_FILE) { 30 if (open my $fh, "<:raw", $CONFIG_FILE) {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines