cid#1606940 Check of thread-shared field evades lock acquisition
[LibreOffice.git] / solenv / bin / modules / pre2par / directory.pm
blob02cfed6f9925857a210390109f0e3e892004b777
2 # This file is part of the LibreOffice project.
4 # This Source Code Form is subject to the terms of the Mozilla Public
5 # License, v. 2.0. If a copy of the MPL was not distributed with this
6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 # This file incorporates work covered by the following license notice:
10 # Licensed to the Apache Software Foundation (ASF) under one or more
11 # contributor license agreements. See the NOTICE file distributed
12 # with this work for additional information regarding copyright
13 # ownership. The ASF licenses this file to you under the Apache
14 # License, Version 2.0 (the "License"); you may not use this file
15 # except in compliance with the License. You may obtain a copy of
16 # the License at http://www.apache.org/licenses/LICENSE-2.0 .
19 package pre2par::directory;
21 use pre2par::pathanalyzer;
22 use pre2par::systemactions;
24 ############################################
25 # Checking, whether the output directories
26 # exist. If not, they are created.
27 ############################################
29 sub check_directory
31 my ($parfilename) = @_;
33 my $productdirectory = $parfilename;
34 pre2par::pathanalyzer::get_path_from_fullqualifiedname(\$productdirectory);
35 $productdirectory =~ s/\Q$pre2par::globals::separator\E\s*$//;
37 my $pardirectory = $productdirectory;
38 pre2par::pathanalyzer::get_path_from_fullqualifiedname(\$pardirectory);
39 $pardirectory =~ s/\Q$pre2par::globals::separator\E\s*$//;
41 if ( ! -d $pardirectory ) { pre2par::systemactions::create_directory($pardirectory); }
42 if ( ! -d $productdirectory ) { pre2par::systemactions::create_directory($productdirectory); }