Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[proof-of-concept] close Makefile filehandle

We can't count on it closing as the block closes. (And in fact, it didn't.)
  • Loading branch information...
commit de85cc421a9ba46c9ac1fd395e5fbdfb87a520e3 1 parent 0cde1f1
@masak authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 proof-of-concept
View
6 proof-of-concept
@@ -80,9 +80,9 @@ class POC::Builder does App::Pls::Builder {
method build($project --> Result) {
say "Building $project<name>...";
my $target-dir = "cache/$project<name>";
- my $cwd = qx[pwd].chomp ~ '/' ~ $target-dir;
if "$target-dir/Makefile" !~~ :e {
my $binary = 'perl6';
+ my $cwd = qx[pwd].chomp ~ '/' ~ $target-dir;
if "$cwd/lib" !~~ :e {
note "lib/ doesn't exist. Nothing to do.";
@@ -230,8 +230,10 @@ test: all
$makefile.say(q[]);
$makefile.say(q[install-src:]);
write-install();
+
+ $makefile.close;
}
- run( "cd $cwd && make" ) and return failure;
+ run( "cd $target-dir; make" ) and return failure;
return success;
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.