#652608 abicheck: ignores TMPDIR when creating temporary files

Package:
abicheck
Source:
abicheck
Submitter:
Paul Wise
Date:
2021-09-22 04:30:43 UTC
Severity:
normal
#652608#5
Date:
2011-12-19 05:39:13 UTC
From:
To:
Please use File::Temp to find a place to write temporary files:

http://perldoc.perl.org/File/Temp.html

Instead of this code which hardcodes /tmp/:

sub do_parallel {

        my ($case, @args) = @_;         # @args is for case 'check' ...

        my (%tmps, $job, $p, $file);

        # spawn the child processes for the task:

        for ($job=0; $job < $njobs; $job++) {
                my $tmpfile0 = "/tmp/abicheck.in.$$.$job";
                my $tmpfile1 = "/tmp/abicheck.out.$$.$job";
                push(@tmpfiles, $tmpfile0, $tmpfile1);

                if ($case eq 'check') {
                        # load the files to be processed by this job:
                        open(TMP, ">$tmpfile0") || (killpids(), exit 1);
#652608#10
Date:
2021-09-22 04:20:13 UTC
From:
To:
Hello,

Good morning,

We have gone through your samples from a partner and Here is our  Order
List. Please do bear in mind that we are very much in  need of this
order, quote your competitive prices.

Kindly send the Order confirmation.

Your early reply will be much appreciated.

Best Regards,

Maryanah Erwin.

PT FINDORA INTERNUSA

Jln Pahlawan 66 Kec. Arjawinangun

45162 CIREBON West-Java INDONESIA

tel : +62 231 357334

fax: +62 231 357260

email: marketing@findora.com