Skip to content

Instantly share code, notes, and snippets.

@kentfredric
Created February 9, 2014 18:20
Show Gist options
  • Save kentfredric/8903533 to your computer and use it in GitHub Desktop.
Save kentfredric/8903533 to your computer and use it in GitHub Desktop.
if (my $files = $tester_arg->{add_files}) {
while (my ($name, $content) = each %$files) {
my $fn = $tempdir->child($name);
$fn->parent->mkpath;
$fn->spew_utf8($content);
warn "making $fn"; # <-- does in fact say its making the file
}
}
local $arg->{dist_root} = "$root";
local $arg->{chrome} = Dist::Zilla::Chrome::Test->new;
local @INC = map {; ref($_) ? $_ : File::Spec->rel2abs($_) } @INC;
my $zilla = $self->$orig($arg);
$zilla->_set_tempdir($tempdir);
warn "Created Tempdir at $tempdir";
system("find","$tempdir"); # <-- absolutely no files
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment