git.maemo.org Git - dh-make-perl/blob - dev/i386/libio-stringy-perl/io-stringy-2.110/debian/patches/01_close.diff

   1 Check "close" exit code.  Closes: #409947.
   2 Patch by Eduardo Pérez Ureta <edpeur@gmail.com>, thanks.
   3
   4
   5 diff -ruN -x '*.png' -x '*.jpg' -x '*.ogg' -x '*_image_archive' ../orig/io-stringy-2.110.orig/lib/IO/AtomicFile.pm ./lib/IO/AtomicFile.pm
   6 --- ../orig/io-stringy-2.110.orig/lib/IO/AtomicFile.pm  2005-02-10 22:21:53.000000000 +0100
   7 +++ ./lib/IO/AtomicFile.pm      2007-11-25 12:12:04.000000000 +0100
   8 @@ -86,10 +86,13 @@
   9  sub close {
  10      my ($self, $die) = @_;
  11      unless ($self->_closed(1)) {             ### sentinel...
  12 -        $self->SUPER::close();
  13 -        rename(${*$self}{'io_atomicfile_temp'},
  14 -              ${*$self}{'io_atomicfile_path'})
  15 -            or ($die ? die "close atomic file: $!\n" : return undef);
  16 +       if ($self->SUPER::close()) {
  17 +               rename(${*$self}{'io_atomicfile_temp'},
  18 +                      ${*$self}{'io_atomicfile_path'})
  19 +                   or ($die ? die "close (rename) atomic file: $!\n" : return undef);
  20 +       } else {
  21 +               $die ? die "close atomic file: $!\n" : return undef;
  22 +       }
  23      }
  24      1;
  25  }