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

Reply via email to