From 03f1610a029f16fa7fc8bb6bc0c9070d66d59e74 Mon Sep 17 00:00:00 2001
From: giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8>
Date: Tue, 15 Mar 2022 03:01:41 +0000
Subject: Use better temp file name

git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@4307 9d0c8265-081b-0410-96cb-a4ca84ce46f8
---
 editor/pnmquantall | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'editor')

diff --git a/editor/pnmquantall b/editor/pnmquantall
index 80d00fce..5f434fc2 100755
--- a/editor/pnmquantall
+++ b/editor/pnmquantall
@@ -117,16 +117,17 @@ sub parseArgs($$$$) {
 
 sub tempFile($) {
 
+    my ($suffix) = @_;
+
     # We trust Perl's File::Temp to do a better job of creating the temp
     # file, but it doesn't exist before Perl 5.6.1.
 
     if (eval { require File::Temp; 1 }) {
         return File::Temp::tempfile("pnmquant_XXXX", 
-                                    SUFFIX=>".pnm", 
+                                    SUFFIX=>$suffix, 
                                     DIR=>File::Spec->tmpdir(),
                                     UNLINK=>$TRUE);
     } else {
-        my ($suffix) = @_;
         my $fileName;
         local *file;  # For some inexplicable reason, must be local, not my
         my $i;
-- 
cgit 1.4.1