Changeset 2397 in ProjectBuilder

Timestamp:

Mar 22, 2019, 12:55:19 AM (5 years ago)

Author:

Bruno Cornec

Message:

closing a file before returning

File:

• devel/pb-modules/lib/ProjectBuilder/Conf.pm (modified) (1 diff)

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

@@ -549 +549 @@
 open(ORIG,$orig) || cluck "Unable to open $orig" && return;
 confess "Will not erase existing $dest while transforming $orig" if (-f $dest);
-open(DEST,"> $dest") || cluck "Unable to write into $dest" && return;
+open(DEST,"> $dest") || cluck "Unable to write into $dest" && close(ORIG) && return;
 print DEST "---\n";
 my $pbconfverbkp = $PBCONFVER;