| /branches/magnus/debian/changelog |
|---|
| 8,8 → 8,13 |
| Generate_Release_Dist() by factoring out the checksum calculation to |
| Compute_Checksums(). Furthermore, instead of reading the whole file |
| into memory, create digester objects and let them read the file. |
| * Create pool subdirectories as needed: |
| · Dirs.pm: export Tree_Mkdir() and delete the 'a'..'z' loop from |
| Create_Tree(). |
| · Packages.pm: Use Tree_Mkdir() to create the package directory and |
| any nonexistent ancestors in Install_Package(). |
| -- Magnus Holmgren <magnus@kibibyte.se> Sun, 1 Apr 2007 15:14:31 +0200 |
| -- Magnus Holmgren <magnus@kibibyte.se> Sun, 1 Apr 2007 19:33:55 +0200 |
| debpool (0.2.3) experimental; urgency=low |
| /branches/magnus/share/DebPool/Packages.pm |
|---|
| 630,19 → 630,7 |
| # Make sure the package directory exists (and is a directory!) |
| if (! -e $pkg_dir) { |
| if (!mkdir($pkg_dir)) { |
| $Error = "Failed to mkdir '$pkg_dir': $!"; |
| return 0; |
| } |
| if (!chmod($Options{'pool_dir_mode'}, $pkg_dir)) { |
| $Error = "Failed to chmod '$pkg_dir': $!"; |
| return 0; |
| } |
| } elsif (! -d $pkg_dir) { |
| $Error = "Target '$pkg_dir' is not a directory."; |
| return 0; |
| } |
| Tree_Mkdir($pkg_dir, $Options{'pool_dir_mode'}) or return 0; |
| # Walk the File Hash, trying to install each listed file into the |
| # pool directory. |
| /branches/magnus/share/DebPool/Dirs.pm |
|---|
| 60,6 → 60,7 |
| @EXPORT_OK = qw( |
| &Archfile |
| &Create_Tree |
| &Tree_Mkdir |
| &Monitor_Incoming |
| &PoolBasePath |
| &PoolDir |
| 69,7 → 70,7 |
| ); |
| %EXPORT_TAGS = ( |
| 'functions' => [qw(&Archfile &Create_Tree &Monitor_Incoming |
| 'functions' => [qw(&Archfile &Create_Tree &Tree_Mkdir &Monitor_Incoming |
| &PoolBasePath &PoolDir &Scan_Changes &Scan_All |
| &Strip_Subsection)], |
| 'vars' => [qw()], |
| 201,16 → 202,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; |