3fd8c82a5a
split the deb package. See http://lists.opensuse.org/opensuse-factory/2012-06/msg00963.html for context OBS-URL: https://build.opensuse.org/request/show/127343 OBS-URL: https://build.opensuse.org/package/show/system:packagemanager/devscripts?expand=0&rev=1
48 lines
1.6 KiB
Diff
48 lines
1.6 KiB
Diff
diff -ur devscripts-2.11.7.orig/scripts/chdist.pl devscripts-2.11.6/scripts/chdist.pl
|
|
--- devscripts-2.11.7.orig/scripts/chdist.pl 2011-09-26 10:38:05.000000000 +0200
|
|
+++ devscripts-2.11.7/scripts/chdist.pl 2012-04-15 00:39:40.000000000 +0200
|
|
@@ -130,7 +130,7 @@
|
|
use warnings;
|
|
use feature 'switch';
|
|
use File::Copy qw(cp);
|
|
-use File::Path qw(make_path);
|
|
+use File::Path qw(mkpath);
|
|
use File::Basename;
|
|
use Getopt::Long qw(:config gnu_compat bundling require_order);
|
|
use Cwd qw(abs_path cwd);
|
|
@@ -319,11 +319,11 @@
|
|
if (-d $dir) {
|
|
fatal("$dir already exists, exiting.");
|
|
}
|
|
- make_path($datadir);
|
|
+ mkpath($datadir);
|
|
foreach my $d (('/etc/apt', '/etc/apt/apt.conf.d', '/etc/apt/preferences.d',
|
|
'/etc/apt/trusted.gpg.d', '/var/lib/apt/lists/partial',
|
|
'/var/cache/apt/archives/partial', '/var/lib/dpkg')) {
|
|
- make_path("$dir/$d");
|
|
+ mkpath("$dir/$d");
|
|
}
|
|
|
|
# Create sources.list
|
|
diff -ur devscripts-2.11.7.orig/scripts/debsnap.pl devscripts-2.11.6/scripts/debsnap.pl
|
|
--- devscripts-2.11.7.orig/scripts/debsnap.pl 2012-02-26 19:53:51.000000000 +0100
|
|
+++ devscripts-2.11.7/scripts/debsnap.pl 2012-04-15 00:40:00.000000000 +0200
|
|
@@ -21,7 +21,7 @@
|
|
use Getopt::Long qw(:config gnu_getopt);
|
|
use File::Basename;
|
|
use Cwd qw/cwd abs_path/;
|
|
-use File::Path qw/make_path/;
|
|
+use File::Path qw/mkpath/;
|
|
use Dpkg::Version;
|
|
|
|
my $progname = basename($0);
|
|
@@ -231,7 +231,7 @@
|
|
fatal "Destination dir $opt{destdir} already exists.\nPlease (re)move it first, or use --force to overwrite.";
|
|
}
|
|
}
|
|
-make_path($opt{destdir});
|
|
+mkpath($opt{destdir});
|
|
|
|
my $json_text = fetch_json_page($baseurl);
|
|
unless ($json_text && @{$json_text->{result}}) {
|