2011-10-02 22:09:48 +02:00
|
|
|
Index: libguile/guile-snarf.in
|
|
|
|
|
===================================================================
|
|
|
|
|
--- libguile/guile-snarf.in.orig 2011-05-05 18:14:35.000000000 +0200
|
|
|
|
|
+++ libguile/guile-snarf.in 2011-09-22 17:56:41.010417735 +0200
|
|
|
|
|
@@ -84,8 +84,7 @@ fi
|
2008-02-28 17:59:01 +01:00
|
|
|
cpp_ok_p=false
|
|
|
|
|
|
|
|
|
|
if [ x"$TMPDIR" = x ]; then TMPDIR="/tmp" ; else : ; fi
|
|
|
|
|
-tempdir="$TMPDIR/guile-snarf.$$"
|
|
|
|
|
-(umask 077 && mkdir $tempdir) || exit 1
|
|
|
|
|
+tempdir=$(mktemp -d -q "$TMPDIR/snarf.XXXXXX") || { echo >&2 "guile-snarf: can not create temporary file"; exit 1; }
|
|
|
|
|
temp="$tempdir/tmp"
|
|
|
|
|
|
|
|
|
|
if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi
|
