X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F09sqlt-diagram.t;h=9e47a36a871f2c5b677117f09a80e8ac026c3cbc;hb=db7232be59a1a6f0cbe95bda27a7cb675e4818bb;hp=4e385a1783c427e40d3a5b380835a467dc50d82c;hpb=81d8a6a784de4ffd69de8023a3ccd78928eb805f;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/09sqlt-diagram.t b/t/09sqlt-diagram.t
index 4e385a1..9e47a36 100644
--- a/t/09sqlt-diagram.t
+++ b/t/09sqlt-diagram.t
@@ -4,11 +4,11 @@
 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;
 
-my @script = qw(blib script sqlt-diagram.pl);
+my @script = qw(blib script sqlt-diagram);
 my @data = qw(data mysql Apache-Session-MySQL.sql);
 
 my $sqlt_diagram = (-d "blib")
@@ -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; };
 }