mirror of
git://git.proxmox.com/git/pve-common.git
synced 2025-01-31 13:46:58 +03:00
19 lines
283 B
Perl
19 lines
283 B
Perl
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)
|
|
}
|