diff options
author | Kurt Zenker <kz@openoffice.org> | 2010-07-13 14:07:47 +0200 |
---|---|---|
committer | Kurt Zenker <kz@openoffice.org> | 2010-07-13 14:07:47 +0200 |
commit | a34dc4114a103abe5de68ac573f4a830cbc35b77 (patch) | |
tree | df45f21820ca1f94d12bad9dc2a4e76dfe69a263 | |
parent | 1a290488a37ecacddcf4a3c043cdfd86d67fb52f (diff) | |
parent | 5908513b963ced9f6d05add286cef70010d51d05 (diff) |
CWS-TOOLING: integrate CWS native317_OOO330
Notes
Notes:
split repo tag: components_ooo/OOO330_m1
-rw-r--r-- | setup_native/scripts/admin.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/setup_native/scripts/admin.pl b/setup_native/scripts/admin.pl index 89588d0c4d03..f5f2d207b5ed 100644 --- a/setup_native/scripts/admin.pl +++ b/setup_native/scripts/admin.pl @@ -785,6 +785,12 @@ sub create_directory_structure foreach $dir (@startparents) { create_directory_tree($dir, \%fullpathhash, $targetdir, $dirhash); } + # Also adding the pathes of the startparents + foreach $dir (@startparents) + { + if ( ! exists($fullpathhash{$dir}) ) { $fullpathhash{$dir} = $targetdir; } + } + return \%fullpathhash; } |