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

package PVE::AtomicFile;

use strict;
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
e143e9d8 DM	1	package PVE::AtomicFile;
	2
	3	use strict;
	4	use IO::AtomicFile;
	5	use vars qw(@ISA);
	6
	7	@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	# dont close atomatically (explicit close required to commit changes)
	18	}