| 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. |