Skip to content

Instantly share code, notes, and snippets.

@tadzik
Created December 11, 2011 15:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tadzik/1461126 to your computer and use it in GitHub Desktop.
Save tadzik/1461126 to your computer and use it in GitHub Desktop.
diff --git a/lib/Panda/Installer.pm b/lib/Panda/Installer.pm
index 031830c..d1a85b8 100644
--- a/lib/Panda/Installer.pm
+++ b/lib/Panda/Installer.pm
@@ -17,7 +17,9 @@ class Panda::Installer does Pies::Installer {
if 'blib'.IO ~~ :d {
for find(dir => 'blib', type => 'file').list -> $i {
# .substr(5) to skip 'blib/'
+ say "creating dir: $!destdir/{$i.dir.substr(5)}";
mkpath "$!destdir/{$i.dir.substr(5)}";
+ say "copying $i";
$i.IO.copy("$!destdir/{$i.Str.substr(5)}");
}
}
diff --git a/bin/panda b/bin/panda
index 791f882..0312e49 100644
--- a/bin/panda
+++ b/bin/panda
@@ -95,13 +95,15 @@ my $panda;
{
my $home = $*OS eq 'MSWin32' ?? %*ENV<HOMEDRIVE> ~ %*ENV<HOMEPATH> !! %*ENV<HOME>;
my $pandadir = "$home/.panda";
+ my $destdir = "$home/.perl6";
mkpath $pandadir unless $pandadir.IO ~~ :d;
+ mkpath $destdir unless $destdir.IO ~~ :d;
my $projectsfile = "$pandadir/projects.json";
$panda = Panda.new(
srcdir => "$pandadir/src",
- destdir => "$home/.perl6",
+ destdir => $destdir,
statefile => "$pandadir/state",
projectsfile => "$pandadir/projects.json"
);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment