From: Martin Mares <mj@ucw.cz>
Date: Fri, 29 Jun 2012 19:45:44 +0000 (+0200)
Subject: Update2: Avoid File::Temp->newdir(), as it requires too new Perl
X-Git-Tag: v1.0~7
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=87f54530f027276afcb4178ebc38df26d9408290;p=git-tools.git

Update2: Avoid File::Temp->newdir(), as it requires too new Perl
---

diff --git a/update2 b/update2
index e27c462..933feaa 100755
--- a/update2
+++ b/update2
@@ -31,9 +31,8 @@ $ref =~ s{^refs/heads/}{} or exit 0;
 $old ne $new or exit 0;
 
 my $subj = '[' . $subject_prefix . ($ref eq 'master' ? '' : "/$ref") . ']';
-my $tmpdir = File::Temp->newdir() or die;
-my $outname = "$tmpdir/0";
-my $out = IO::File->new($outname, '>') or die;
+my $out = File::Temp->new() or die;
+my $outname = $out->filename;
 $out->autoflush(1);
 close STDOUT;
 open STDOUT, '>&', $out or die;