From d9623da1f2687d4a25cc5229c46ca5cf226a76ff Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 10 Jan 2004 23:30:23 +0000
Subject: [PATCH] Instead of the non-portable mktemp, use mkdir to create a
 unique temporary directory that we can safely use.  Thanks to Stefan
 Nordhausen!

---
 libguile/guile-snarf.in | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in
index c8b7989cb..f6977cac2 100644
--- a/libguile/guile-snarf.in
+++ b/libguile/guile-snarf.in
@@ -69,10 +69,12 @@ fi
 
 # set vars and handler -- handle CPP override
 cpp_ok_p=false
-temp=`mktemp -t guile-snarf.XXXXXX` || exit 1
+tempdir="/tmp/snarf.$$"
+(umask 077 && mkdir $tempdir) || exit 1
+temp="$tempdir/tmp"
 if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi
 
-trap "rm -f $temp" 0 1 2 15
+trap "rm -rf $tempdir" 0 1 2 15
 
 if [ ! "$outfile" = "-" ] ; then
     modern_snarf "$@" > $outfile