db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-07-05 00:28:52 +02:00
Code Issues Releases Activity

path_create() working.

Browse Source
This commit is contained in:
David Steele
2014-06-21 15:46:26 -04:00
parent 7bc464a44b
commit 53f1d3c78e
3 changed files with 62 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lib/BackRest/File.pm
View File

@ -581,6 +581,11 @@ sub path_create
$oParamHash{path} = ${strPathOp};
if (defined($strPermission))
{
$oParamHash{permission} = ${strPermission};
}
# Add remote info to debug string
my $strRemote = "remote (" . $self->{oRemote}->command_param_string(\%oParamHash) . ")";
$strDebug = "${strOperation}: ${strRemote}: ${strDebug}";
@ -592,7 +597,18 @@ sub path_create
else
{
# Attempt the create the directory
if (!mkdir($strPathOp, oct(defined($strPermission) ? $strPermission : $self->{strDefaultPathPermission})))
my $bResult;
if (defined($strPermission))
{
$bResult = mkdir($strPathOp, oct($strPermission));
}
else
{
$bResult = mkdir($strPathOp);
}
if (!$bResult)
{
# Capture the error
my $strError = "${strPath} could not be created: " . $!;
@ -600,12 +616,11 @@ sub path_create
# If running on command line the return directly
if ($strPathType eq PATH_ABSOLUTE)
{
print $strError;
exit COMMAND_ERR_PATH_CREATE;
confess &log(ERROR, $!, COMMAND_ERR_PATH_CREATE);
}
# Error the normal way
confess &log(ERROR, "${strDebug}: " . $strError);
confess &log(ERROR, "${strDebug}: " . $strError, COMMAND_ERR_PATH_CREATE);
}
}
}