[pve-common.git] / src / PVE / AtomicFile.pm

package PVE::AtomicFile;

use strict;
use warnings;
use IO::AtomicFile;

our @ISA = qw(IO::AtomicFile);

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    $self;
}


sub DESTROY {
    # don't close atomatically (explicit close required to commit changes)
}
Commit	Line	Data
	1	package PVE::AtomicFile;
	2
	3	use strict;
	4	use warnings;
	5	use IO::AtomicFile;
	6
	7	our @ISA = qw(IO::AtomicFile);
	8
	9	sub new {
	10	my $class = shift;
	11	my $self = $class->SUPER::new(@_);
	12	$self;
	13	}
	14
	15
	16	sub DESTROY {
	17	# don't close atomatically (explicit close required to commit changes)
	18	}