forked from pool/perl-CDDB_get
4166f00828
Copy from devel:languages:perl/perl-CDDB_get based on submit request 23991 from user dirkmueller OBS-URL: https://build.opensuse.org/request/show/23991 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-CDDB_get?expand=0&rev=5
24 lines
540 B
Diff
24 lines
540 B
Diff
Index: CDDB_get-2.27/cddb.pl
|
|
===================================================================
|
|
--- CDDB_get-2.27.orig/cddb.pl
|
|
+++ CDDB_get-2.27/cddb.pl
|
|
@@ -23,6 +23,7 @@
|
|
|
|
use Data::Dumper;
|
|
use Getopt::Std;
|
|
+use File::Temp qw/ tempfile tempdir /;
|
|
|
|
use strict;
|
|
|
|
@@ -58,8 +59,8 @@ my %config;
|
|
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";
|
|
|
|
if($option{C}) {
|
|
# use CDDB_cache qw( get_cddb get_discids );
|