File perl-CDDB_get-2.23-tmpfile.diff of Package perl-CDDB_get

--- CDDB_get-2.23/cddb.pl
+++ CDDB_get-2.23/cddb.pl
@@ -23,6 +23,7 @@
 
 use Data::Dumper;
 use Getopt::Std;
+use File::Temp qw/ tempfile tempdir /;
 
 use strict;
 
@@ -52,8 +53,8 @@
 my $diskid;
 my $total;
 my $toc;
-my $savedir="/tmp/cddb";
-my $xmcddir="/tmp/xmcd";
+my $savedir = tempdir( CLEANUP => 1 );
+my $xmcddir = tempdir( CLEANUP => 1 )."xmcd";
 
 # following variables just need to be declared if different from defaults
 # defaults are listed below (cdrom default is os specific)