Changeset 02483ba

Timestamp:

Dec 4, 2010, 4:12:10 PM (13 years ago)

Author:

Quentin Smith <quentin@…>

Branches:

master, debian

Children:

a50d28b, 618236b

Parents:

267d44e

git-author:

Quentin Smith <quentin@…> (12/04/10 16:12:10)

git-committer:

Quentin Smith <quentin@…> (12/04/10 16:12:10)

Message:

Ask File::Temp to make its temporary file in a system-dependent temporary directory. Apparently the default was to create it in the current directory, which caused intermittent behavior.

File:

• server/lib/gutenbach (modified) (1 diff)

server/lib/gutenbach

@@ -83 +83 @@
 # first.
 if (!$arguments{"file"}) {
-  my ($fh, $file) = tempfile("gutenbachXXXXX", UNLINK => 1); # Ask File::Temp for a safe temporary file
+  my ($fh, $file) = tempfile("gutenbachXXXXX", TMPDIR => 1, UNLINK => 1); # Ask File::Temp for a safe temporary file
   my $buf;
   while (read(STDIN, $buf, 1024*1024)) { # Read 1M at a time and put it in the temporary file