--- netpbm-10.29/editor/ppmshadow.orig	2005-04-23 21:16:16 +0000
+++ netpbm-10.29/editor/ppmshadow	2005-10-04 17:06:46 +0000
@@ -71,10 +71,9 @@ sub makeConvolutionKernel($$) {
 ##############################################################################
 
 
-my $tmpdir = $ENV{TMPDIR} || "/tmp";
-my $ourtmp = "$tmpdir/ppmshadow$$";
-mkdir($ourtmp, 0777) or
-    die("Unable to create directory for temporary files '$ourtmp");
+use File::Temp qw(tempdir);
+use sigtrap qw(die normal-signals);
+my $ourtmp = tempdir("ppmshadow.XXXXXXXX", TMPDIR => 1, CLEANUP => 1);
 
 #   Process command line options