Fixed 'useless use of constant in void context' warning.

[dbsrgits/SQL-Translator.git] / t / 09sqlt-diagram.t

diff --git a/t/09sqlt-diagram.t b/t/09sqlt-diagram.t
index 88ff610..9e47a36 100644 (file)
--- 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;
@@ -39,4 +35,5 @@ if ($@ && $@ =~ /locate GD.pm in /) {
     eval { system(@cmd); };
     ok(!$@ && ($? == 0));
     ok(-e $tmp); 
+    eval { unlink $tmp; };
 }