Changeset 2397


Ignore:
Timestamp:
Mar 22, 2019, 12:55:19 AM (3 months ago)
Author:
bruno
Message:

closing a file before returning

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb-modules/lib/ProjectBuilder/Conf.pm

    r2362 r2397  
    549549open(ORIG,$orig) || cluck "Unable to open $orig" && return;
    550550confess "Will not erase existing $dest while transforming $orig" if (-f $dest);
    551 open(DEST,"> $dest") || cluck "Unable to write into $dest" && return;
     551open(DEST,"> $dest") || cluck "Unable to write into $dest" && close(ORIG) && return;
    552552print DEST "---\n";
    553553my $pbconfverbkp = $PBCONFVER;
Note: See TracChangeset for help on using the changeset viewer.