Package: debpool
Version: 0.2.2
Severity: wishlist
Tags: patch
Hi,
it would be nice to have a minimal pool directory tree. With the patch
below debpool creates a new pool directory only when needed.
Cheers,
Free
diff -Naur debpool-0.2.2/share/DebPool/Dirs.pm
debpool-0.2.2.minimal-pool/share/DebPool/Dirs.pm
--- debpool-0.2.2/share/DebPool/Dirs.pm 2006-01-30 00:03:08.000000000 +0100
+++ debpool-0.2.2.minimal-pool/share/DebPool/Dirs.pm 2006-01-30
00:05:14.000000000 +0100
@@ -199,16 +199,6 @@
if (!Tree_Mkdir("$pool_dir/$section", $pool_dir_mode)) {
return 0;
}
-
- my($letter);
- foreach $letter ('a' .. 'z') {
- if (!Tree_Mkdir("$pool_dir/$section/$letter", $pool_dir_mode)) {
- return 0;
- }
- if (!Tree_Mkdir("$pool_dir/$section/lib$letter", $pool_dir_mode)) {
- return 0;
- }
- }
}
return 1;
diff -Naur debpool-0.2.2/share/DebPool/Packages.pm
debpool-0.2.2.minimal-pool/share/DebPool/Packages.pm
--- debpool-0.2.2/share/DebPool/Packages.pm 2006-01-30 00:03:08.000000000
+0100
+++ debpool-0.2.2.minimal-pool/share/DebPool/Packages.pm 2006-01-30
00:04:38.000000000 +0100
@@ -629,7 +629,7 @@
# Make sure the package directory exists (and is a directory!)
if (! -e $pkg_dir) {
- if (!mkdir($pkg_dir)) {
+ if (system("mkdir -p $pkg_dir") != 0) {
$Error = "Failed to mkdir '$pkg_dir': $!";
return 0;
}
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
