mirror of
https://git.proxmox.com/git/pve-common
synced 2025-06-14 07:35:49 +00:00
20 lines
297 B
Perl
20 lines
297 B
Perl
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)
|
|
}
|