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