From 6ca4b94efa68b84fd4ac26aba9e861fc96ecd3ab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gon=C3=A9ri=20Le=20Bouder?= Date: Sat, 26 May 2012 13:22:52 +0200 Subject: [PATCH] correctly catch dir creation error --- .../Agent/Task/Deploy/ActionProcessor/Action/Mkdir.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/FusionInventory/Agent/Task/Deploy/ActionProcessor/Action/Mkdir.pm b/lib/FusionInventory/Agent/Task/Deploy/ActionProcessor/Action/Mkdir.pm index b944e1deab..142cdc8892 100644 --- a/lib/FusionInventory/Agent/Task/Deploy/ActionProcessor/Action/Mkdir.pm +++ b/lib/FusionInventory/Agent/Task/Deploy/ActionProcessor/Action/Mkdir.pm @@ -19,10 +19,12 @@ sub do { $logger->debug($m); } else { File::Path::mkpath($dir); - $status = 0 unless -d $dir; - my $m = "Failed to create $dir directory"; - push @$msg, $m; - $logger->debug($m); + if (!-d $dir) { + $status = 0; + my $m = "Failed to create $dir directory"; + push @$msg, $m; + $logger->debug($m); + } } } return {