[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
e143e9d8 DM	1	package PVE::AtomicFile;
	2
	3	use strict;
c36f332e	4	use warnings;
e143e9d8	5	use IO::AtomicFile;
e143e9d8	6
0681aa71	7	our @ISA = qw(IO::AtomicFile);
e143e9d8 DM	8
	9	sub new {
	10	my $class = shift;
	11	my $self = $class->SUPER::new(@_);
	12	$self;
	13	}
	14
	15
	16	sub DESTROY {
fb3a1b29	17	# don't close atomatically (explicit close required to commit changes)
e143e9d8	18	}