# New Ticket Created by James Keenan
# Please include the string: [perl #57958]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57958 >
The rationale for this patch is the same as in my recently submitted
http://rt.perl.org/rt3/Ticket/Display.html?id=57956
The configuration step -- whether during testing or during
Configure.pl -- opens a handle to a file called test.cco. We need to
guarantee that it gets removed from the top-level Parrot directory
when the step and/or the test has been run.
Index: config/auto/attributes.pm
===================================================================
--- config/auto/attributes.pm (revision 30255)
+++ config/auto/attributes.pm (working copy)
@@ -86,6 +86,7 @@
$conf->data->set( $attr => !$exit_code | 0 );
if ($exit_code) {
+ unlink $output_file or die "Unable to unlink $output_file: $!";
$verbose and print "Rejecting bogus attribute: $attr\n";
return;
}
@@ -98,6 +99,7 @@
my $ccflags = $conf->data->get("ccflags");
$verbose and print " ccflags: $ccflags\n";
}
+ unlink $output_file or die "Unable to unlink $output_file: $!";
return;
}
