Update of bug #68793 (group groff):
Status: None => Need Info
Assigned to: None => deri
_______________________________________________________
Follow-up Comment #2:
[comment #1 comment #1:]
> I thought File::Temp honoured $TMPDIR - it doesn't. So here's the patch,
>
> (file #59110)
diff --git a/src/utils/pdfmom/pdfmom.pl b/src/utils/pdfmom/pdfmom.pl
index 140ddebae..8a1947334 100644
--- a/src/utils/pdfmom/pdfmom.pl
+++ b/src/utils/pdfmom/pdfmom.pl
@@ -48,7 +48,8 @@ if ($0=~m/pdf(\w+)$/)
my $RT_SEP='@RT_SEP@';
$ENV{PATH}=$ENV{GROFF_BIN_PATH}.$RT_SEP.$ENV{PATH} if
exists($ENV{GROFF_BIN_PATH});
-$ENV{TMPDIR}=$ENV{GROFF_TMPDIR} if exists($ENV{GROFF_TMPDIR});
+my $TMPDIR=exists($ENV{TMPDIR})?$ENV{TMPDIR}:'.';
+$TMPDIR=$ENV{GROFF_TMPDIR} if exists($ENV{GROFF_TMPDIR});
$groff=$ENV{GROFF_COMMAND} if exists ($ENV{GROFF_COMMAND});
(undef,undef,my $prog)=File::Spec->splitpath($0);
@@ -186,7 +187,7 @@ my $cmdstring=' '.join(' ',@cmd).' ';
if ($readstdin)
{
- my ($fh,$tmpfn)=tempfile('pdfmom-XXXXX', UNLINK=>1);
+ my ($fh,$tmpfn)=tempfile("$TMPDIR/pdfmom-XXXXX", UNLINK=>1);
while (<STDIN>)
{
Won't that try to create a temporary file in the root directory if the scalar
`TMPDIR` is undefined? I don't see anything in this file that _does_ define
it. Does Perl do so itself?
_______________________________________________________
Reply to this item at:
<https://savannah.gnu.org/bugs/?68793>
_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/
signature.asc
Description: PGP signature
