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