Changeset 2362 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Conf.pm

Timestamp:

Feb 25, 2019, 12:20:27 PM (5 years ago)

Author:

Bruno Cornec

Message:

better usae of cluck instead of confess to avoid exiting abrutely when not needed

File:

• devel/pb-modules/lib/ProjectBuilder/Conf.pm (modified) (4 diffs)

devel/pb-modules/lib/ProjectBuilder/Conf.pm

@@ -15 +15 @@
 
 use strict;
-use Carp 'confess';
+use Carp qw/cluck confess/;
 use Data::Dumper;
 use ProjectBuilder::Base;
@@ -185 +185 @@
 # Read the content of the config file and cache it in the %h hash then available for queries
 if ($PBCONFVER < 1) {
-    open(CONF,$cf) || confess "Unable to open $cf";
+    open(CONF,$cf) || cluck "Unable to open $cf" && return($lh);
     # This is the original conf file format for versions up to 0.14
     while(<CONF>) {
@@ -331 +331 @@
 confess "No configuration file defined to write into !" if (not defined $conffile);
 confess "No hash defined to read from !" if (not defined $h);
-open(CONF,"> $conffile") || confess "Unable to write into $conffile";
+open(CONF,"> $conffile") || cluck "Unable to write into $conffile" && return;
 
 if ($PBCONFVER < 1) {
@@ -547 +547 @@
 my $dest = shift;
 
-open(ORIG,$orig) || confess "Unable to open $orig";
+open(ORIG,$orig) || cluck "Unable to open $orig" && return;
 confess "Will not erase existing $dest while transforming $orig" if (-f $dest);
-open(DEST,"> $dest") || confess "Unable to write into $dest";
+open(DEST,"> $dest") || cluck "Unable to write into $dest" && return;
 print DEST "---\n";
 my $pbconfverbkp = $PBCONFVER;