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

package PVE::AtomicFile;

use strict;
use warnings;
use IO::AtomicFile;
use vars qw(@ISA);

@ISA = qw(IO::AtomicFile);

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


sub DESTROY {
    # dont 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	use vars qw(@ISA);
	7
	8	@ISA = qw(IO::AtomicFile);
	9
	10	sub new {
	11	my $class = shift;
	12	my $self = $class->SUPER::new(@_);
	13	$self;
	14	}
	15
	16
	17	sub DESTROY {
	18	# dont close atomatically (explicit close required to commit changes)
	19	}