[rt.cpan.org #65252] Temp files left when execute fails

[Lyle Hopkins via RT]

Sat Jan 29 20:45:13 2011: Request 65252 was acted upon.
Transaction: Ticket created by COSMICNET
       Queue: Module-ScanDeps
     Subject: Temp files left when execute fails
   Broken in: (no value)
    Severity: Important
       Owner: Nobody
  Requestors: cosmic...@cpan.org
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=65252 >


Hi,
  If the execute option is on, an the system call fails then the temp
files are left. You can see in the code:-

    system($perl, (map { "-I$_" } @IncludeLibs), $fname) == 0 or die
"SYSTEM ERROR in executing $file: $?";

    _extract_info("$fname.out", $inchash, $dl_shared_objects, $incarray);
    unlink("$fname");
    unlink("$fname.out");

That the die is before the unlinks. Suggest replacing the die with a
block that unlinks then dies.


Lyle