Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

We’re showing branches in this repository, but you can also compare across forks.

...
  • 10 commits
  • 8 files changed
  • 0 commit comments
  • 3 contributors
2  bin/panda-build
View
@@ -2,5 +2,5 @@
use Panda::Builder;
sub MAIN($where = '.') {
- Panda::Builder.build($where);
+ Panda::Builder.build($where.path.absolute);
}
2  bin/panda-fetch
View
@@ -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);
}
2  bin/panda-install
View
@@ -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);
}
2  bin/panda-test
View
@@ -2,5 +2,5 @@
use Panda::Tester;
sub MAIN($where = '.') {
- Panda::Tester.test($where);
+ Panda::Tester.test($where.path.absolute);
}
2  bin/redpanda
View
@@ -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);
2  lib/Panda.pm
View
@@ -9,7 +9,7 @@ use JSON::Tiny;
sub tmpdir {
state $i = 0;
- ".work/{time}_{$i++}"
+ ".work/{time}_{$i++}".path.absolute
}
class Panda {
21 lib/Panda/Common.pm
View
@@ -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()
}
@@ -30,20 +30,9 @@ sub withp6lib(&what) is export {
}
sub compsuffix is export {
- given $*VM<name> {
- when 'parrot' {
- return 'pir';
- }
- when 'jvm' {
- return 'jar';
- }
- when 'moar' {
- return 'moarvm';
- }
- default {
- die($_ ~ ' is an unsupported backend VM.');
- }
- }
+ $*VM<name> eq 'moar'
+ ?? 'moarvm'
+ !! comptarget
}
sub comptarget is export {
4 lib/Panda/Fetcher.pm
View
@@ -24,7 +24,9 @@ sub git-fetch($from, $to) {
}
sub local-fetch($from, $to) {
- for find(dir => $from).list {
+ # We need to eagerify this, as we'll sometimes
+ # copy files to a subdirectory of $from
+ for eager find(dir => $from).list {
my $d = IO::Spec.catpath($_.volume, $_.directory, '');
# We need to cleanup the path, because the returned elems are too.
my $cleanup = $from.IO.path.cleanup;

No commit comments for this range

Something went wrong with that request. Please try again.