Add ARM files

[dh-make-perl] / dev / arm / libio-stringy-perl / io-stringy-2.110 / debian / patches / 01_close.diff

diff --git a/dev/arm/libio-stringy-perl/io-stringy-2.110/debian/patches/01_close.diff b/dev/arm/libio-stringy-perl/io-stringy-2.110/debian/patches/01_close.diff
new file mode 100644 (file)
index 0000000..9321aa3
--- /dev/null
+++ b/dev/arm/libio-stringy-perl/io-stringy-2.110/debian/patches/01_close.diff
@@ -0,0 +1,25 @@
+Check "close" exit code.  Closes: #409947.
+Patch by Eduardo Pérez Ureta <edpeur@gmail.com>, thanks.
+
+
+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
+--- ../orig/io-stringy-2.110.orig/lib/IO/AtomicFile.pm 2005-02-10 22:21:53.000000000 +0100
++++ ./lib/IO/AtomicFile.pm     2007-11-25 12:12:04.000000000 +0100
+@@ -86,10 +86,13 @@
+ sub close {
+     my ($self, $die) = @_;
+     unless ($self->_closed(1)) {             ### sentinel...
+-        $self->SUPER::close();    
+-        rename(${*$self}{'io_atomicfile_temp'},
+-             ${*$self}{'io_atomicfile_path'}) 
+-            or ($die ? die "close atomic file: $!\n" : return undef); 
++      if ($self->SUPER::close()) {
++              rename(${*$self}{'io_atomicfile_temp'},
++                     ${*$self}{'io_atomicfile_path'}) 
++                  or ($die ? die "close (rename) atomic file: $!\n" : return undef); 
++      } else {
++              $die ? die "close atomic file: $!\n" : return undef;
++      }
+     }
+     1;
+ }