Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix deprecations
  • Loading branch information
lizmat committed Nov 21, 2014
1 parent 45675dc commit 1184fef
Show file tree
Hide file tree
Showing 6 changed files with 8 additions and 8 deletions.
4 changes: 2 additions & 2 deletions bootstrap.pl
Expand Up @@ -20,9 +20,9 @@ BEGIN
$panda-base = "$prefix/panda";
try mkdir $destdir;
try mkpath $panda-base unless $panda-base.IO ~~ :d;
last if $panda-base.path.w
last if $panda-base.IO.w
}
unless $panda-base.path.w {
unless $panda-base.IO.w {
warn "panda-base: { $panda-base.perl }";
die "Found no writable directory into which panda could be installed";
}
Expand Down
4 changes: 2 additions & 2 deletions lib/Panda.pm
Expand Up @@ -9,7 +9,7 @@ use JSON::Tiny;

sub tmpdir {
state $i = 0;
".panda-work/{time}_{$i++}".path.absolute
".panda-work/{time}_{$i++}".IO.absolute
}

class Panda {
Expand Down Expand Up @@ -178,7 +178,7 @@ class Panda {
die "Project $proj not found in the ecosystem";
}
unless $nodeps {
my @deps = self.get-deps($bone).uniq;
my @deps = self.get-deps($bone).unique;
@deps.=grep: {
$.ecosystem.project-get-state($_)
== Panda::Project::absent
Expand Down
2 changes: 1 addition & 1 deletion lib/Panda/Builder.pm
Expand Up @@ -71,7 +71,7 @@ method build($where) {
$io if $io.basename.substr(0, 1) ne '.';
});
}
my @dirs = @files.map(*.dirname).uniq;
my @dirs = @files.map(*.dirname).unique;
mkpath "blib/$_" for @dirs;

my @tobuild = build-order(@files);
Expand Down
2 changes: 1 addition & 1 deletion lib/Panda/Installer.pm
Expand Up @@ -19,7 +19,7 @@ method default-destdir {
}
for grep(*.defined, $ret, %*CUSTOM_LIB<site home>) -> $prefix {
$ret = $prefix;
last if $ret.path.w;
last if $ret.IO.w;
}
return $ret;
}
Expand Down
2 changes: 1 addition & 1 deletion rebootstrap.pl
Expand Up @@ -11,7 +11,7 @@ BEGIN
# Find old state file
my ($prefix, $state-file);
for grep(*.defined, %*ENV<DESTDIR>, %*CUSTOM_LIB<site home>) {
if "$_/panda/state".path.e {
if "$_/panda/state".IO.e {
$prefix = $_;
$state-file = "$_/panda/state";
}
Expand Down
2 changes: 1 addition & 1 deletion t/ecosystem.t
Expand Up @@ -6,7 +6,7 @@ plan 14;
my $absent = Panda::Project::absent;
my $installed = Panda::Project::installed;

't/fakestate'.path.copy('REMOVEME');
't/fakestate'.IO.copy('REMOVEME');
my $a = Panda::Ecosystem.new(
statefile => "$*CWD/REMOVEME",
projectsfile => 't/fakeprojects'
Expand Down

0 comments on commit 1184fef

Please sign in to comment.