# 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; }