From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 10 Nov 2003 17:47:50 +0000 (+0000)
Subject: Changed tempfile stuff to use "mktemp" to get rid of warnings.
X-Git-Tag: v0.06~258
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=250692b1657fff24054a80975b423baefb708a01;p=dbsrgits%2FSQL-Translator.git

Changed tempfile stuff to use "mktemp" to get rid of warnings.
---

diff --git a/t/09sqlt-diagram.t b/t/09sqlt-diagram.t
index eaa3430..9e47a36 100644
--- a/t/09sqlt-diagram.t
+++ b/t/09sqlt-diagram.t
@@ -4,7 +4,7 @@
 use strict;
 
 use File::Spec::Functions qw(catfile updir tmpdir);
-use File::Temp qw(tempfile);
+use File::Temp qw(mktemp);
 use FindBin qw($Bin);
 use Test;
 
@@ -19,11 +19,7 @@ my $test_data = (-d "t")
     ? catfile($Bin, @data)
     : catfile($Bin, "t", @data);
 
-my (undef, $tmp) = tempfile("sqlXXXXX",
-                             OPEN   => 0,
-                             UNLINK => 1,
-                             SUFFIX => '.png',
-                             DIR    => tmpdir);
+my $tmp = mktemp('sqlXXXXX');
 
 BEGIN {
     plan tests => 3;