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