Skip to content

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
...
  • 2 commits
  • 7 files changed
  • 0 commit comments
  • 2 contributors
Commits on Feb 27, 2014
@FROGGS FROGGS use absolute paths where possible 026cd23
Commits on Feb 28, 2014
@tadzik Merge pull request #71 from tadzik/absolute
use absolute paths where possible [based on moar-support branch]
d37c017
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()
}

No commit comments for this range

Something went wrong with that request. Please try again.