[svn:parrot] r30279 - trunk/config/auto

[jkeenan]

Author: jkeenan
Date: Sun Aug 17 08:09:38 2008
New Revision: 30279

Modified:
   trunk/config/auto/attributes.pm

Log:
Per http://rt.perl.org/rt3/Ticket/Display.html?id=57958, make sure that this 
config step leaves no 'test*' files behind in the top-level directory after 
Configure.pl has run.

Modified: trunk/config/auto/attributes.pm
==============================================================================
--- trunk/config/auto/attributes.pm     (original)
+++ trunk/config/auto/attributes.pm     Sun Aug 17 08:09:38 2008
@@ -83,9 +83,11 @@
         Parrot::Configure::Utils::_run_command( $command_line, $output_file, 
$output_file );
     $verbose and print "  exit code: $exit_code\n";
 
+    $conf->cc_clean();
     $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 +100,7 @@
         my $ccflags = $conf->data->get("ccflags");
         $verbose and print "  ccflags: $ccflags\n";
     }
+    unlink $output_file or die "Unable to unlink $output_file: $!";
 
     return;
 }