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

[jkeenan]

Author: jkeenan
Date: Sun Aug 17 08:36:16 2008
New Revision: 30280

Modified:
   trunk/config/auto/warnings.pm

Log:
Per http://rt.perl.org/rt3/Ticket/Display.html?id=58036, make sure this config 
step cleans up after itself properly.

Modified: trunk/config/auto/warnings.pm
==============================================================================
--- trunk/config/auto/warnings.pm       (original)
+++ trunk/config/auto/warnings.pm       Sun Aug 17 08:36:16 2008
@@ -227,9 +227,15 @@
     );
     _set_warning($conf, $warning, $exit_code, $verbose);
 
-    return if $exit_code;
+    $conf->cc_clean();
+
+    if ($exit_code) {
+        unlink $output_file or die "Unable to unlink $output_file: $!";
+        return;
+    }
 
     my $output = Parrot::BuildUtil::slurp_file($output_file);
+    unlink $output_file or die "Unable to unlink $output_file: $!";
     return _set_ccflags($conf, $output, $tryflags, $verbose);
 }