data/PVE/AtomicFile.pm

   1 package PVE::AtomicFile;
   2
   3 use strict;
   4 use IO::AtomicFile;
   5 use vars qw(@ISA);
   6
   7 @ISA = qw(IO::AtomicFile);
   8
   9 sub new {
  10     my $class = shift;
  11     my $self = $class->SUPER::new(@_);
  12     $self;
  13 }
  14
  15
  16 sub DESTROY {
  17     # dont close atomatically (explicit close required to commit changes)
  18 }