Browse files

use absolute paths where possible

  • Loading branch information...
1 parent 9fb996e commit 026cd233677254a86bd7ea1224da418ef53d2c17 @FROGGS FROGGS committed Feb 27, 2014
Showing with 8 additions and 8 deletions.
  1. +1 −1 bin/panda-build
  2. +1 −1 bin/panda-fetch
  3. +1 −1 bin/panda-install
  4. +1 −1 bin/panda-test
  5. +1 −1 bin/redpanda
  6. +1 −1 lib/Panda.pm
  7. +2 −2 lib/Panda/Common.pm
View
2 bin/panda-build
@@ -2,5 +2,5 @@
use Panda::Builder;
sub MAIN($where = '.') {
- Panda::Builder.build($where);
+ Panda::Builder.build($where.path.absolute);
}
View
2 bin/panda-fetch
@@ -6,5 +6,5 @@ sub MAIN($from, $to? is copy) {
note "Fetching to ./work";
$to = 'work';
}
- Panda::Fetcher.fetch($from, $to);
+ Panda::Fetcher.fetch($from.path.absolute, $to.path.absolute);
}
View
2 bin/panda-install
@@ -2,5 +2,5 @@
use Panda::Installer;
sub MAIN($from = '.', $to?) {
- Panda::Installer.new.install($from, $to);
+ Panda::Installer.new.install($from.path.absolute, $to);
}
View
2 bin/panda-test
@@ -2,5 +2,5 @@
use Panda::Tester;
sub MAIN($where = '.') {
- Panda::Tester.test($where);
+ Panda::Tester.test($where.path.absolute);
}
View
2 bin/redpanda
@@ -27,7 +27,7 @@ sub get-meta($module is copy) {
}
sub MAIN($url) {
- my $dir = '.work';
+ my $dir = '.work'.path.absolute;
rm_rf $dir;
try {
Panda::Fetcher::fetch($url, $dir);
View
2 lib/Panda.pm
@@ -9,7 +9,7 @@ use JSON::Tiny;
sub tmpdir {
state $i = 0;
- ".work/{time}_{$i++}"
+ ".work/{time}_{$i++}".path.absolute
}
class Panda {
View
4 lib/Panda/Common.pm
@@ -5,9 +5,9 @@ sub dirname ($mod as Str) is export {
$mod.subst(':', '_', :g);
}
-sub indir (Str $where, Callable $what) is export {
+sub indir ($where, Callable $what) is export {
mkpath $where;
- temp $*CWD = IO::Spec.rel2abs($where);
+ temp $*CWD = $where.path.absolute;
$what()
}

0 comments on commit 026cd23

Please sign in to comment.