Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Drop use File::Mkdir instead of mkdirp(), we depend on File::Mkdir an…

…yway
  • Loading branch information...
commit 08f35d43cb5d5557e1b3bcae8f6e384c1280c85f 1 parent a5423a2
@tadzik authored
Showing with 4 additions and 12 deletions.
  1. +3 −12 bin/neutro
  2. +1 −0  deps.proto
View
15 bin/neutro
@@ -1,5 +1,6 @@
#!/usr/bin/env perl6
use v6;
+use File::Mkdir;
use Module::Build;
use Module::Test;
use Module::Install;
@@ -15,7 +16,7 @@ my %modules;
# check if modules list is present, update it otherwise
sub checklist {
unless $CONFIGDIR.IO ~~ :d {
- mkdirp $CONFIGDIR;
+ mkdir $CONFIGDIR, :p;
}
unless "$CONFIGDIR/modules.list".IO ~~ :f {
updatedb;
@@ -41,7 +42,7 @@ sub dirname (Str $name) {
sub fetch (Str $name) {
my $res;
- mkdirp $SRCDIR;
+ mkdir $SRCDIR, :p;
chdir $SRCDIR;
notice "Fetching $name";
if "$SRCDIR/{dirname $name}".IO ~~ :d {
@@ -133,16 +134,6 @@ sub listmodules {
for %modules.keys.sort.grep({ $_ }) { .say }
}
-sub mkdirp (Str $what) {
- my @parts = $what.split('/').grep: { $_ };
- my $path;
- for @parts -> $dir {
- $path ~= "/$dir";
- next if $path.IO ~~ :e;
- mkdir $path;
- }
-}
-
sub notice (Str $what) {
say "==> $what";
}
View
1  deps.proto
@@ -1,2 +1,3 @@
+perl6-File-Tools
perl6-Module-Tools
perl6-lwp-simple
Please sign in to comment.
Something went wrong with that request. Please try again.