]>
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 | } |