Permalink
Browse files

Fixed paths for windows

  • Loading branch information...
1 parent a22ae83 commit 377aa3b1f80798557759c7ef479650408184d5b8 @tadzik committed Sep 12, 2010
Showing with 4 additions and 2 deletions.
  1. +4 −2 bin/neutro
View
@@ -5,9 +5,11 @@ use Module::Test;
use Module::Install;
use LWP::Simple;
-my $CONFIGDIR = "%*ENV<HOME>/.neutro";
+my $home = ($*VM<config><osname> eq 'MSWin32')
+ ?? %*ENV<HOMEPATH> !! %*ENV<HOME>;
+my $CONFIGDIR = "$home/.neutro";
my $COLORS = True;
-my $INSTALLDIR = "%*ENV<HOME>/.perl6";
+my $INSTALLDIR = "$home/.perl6";
my $SRCDIR = "$CONFIGDIR/src";
my %modules;

0 comments on commit 377aa3b

Please sign in to comment.