[SCM] Debian packaging of libfilehandle-fmode-perl branch, master, updated. 61433d39037496855988779c8e8df42571cbcc9a

[Xavier Guimard]

The following commit has been merged in the master branch:
commit 14a8fe2039bb8e08cb6c9424f970d1c08f724120
Author: Xavier Guimard <x.guimard at free.fr>
Date:   Sun Nov 4 07:11:59 2012 +0100

    Include Hurd patch and format 3.0

diff --git a/debian/changelog b/debian/changelog
index dff2636..3538d33 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -18,6 +18,8 @@ libfilehandle-fmode-perl (0.12-1) UNRELEASED; urgency=low
   * Use debhelper >=9.20120312
   * Update copyright to format 1.0
   * Update debian/rules to new format
+  * Convert source format to 3.0 quilt
+  * Include Hurd patch (Closes: #681028)
 
  -- Xavier Guimard <x.guimard at free.fr>  Sun, 04 Nov 2012 06:50:54 +0100
 
diff --git a/debian/patches/fmode_perl_hurd.patch b/debian/patches/fmode_perl_hurd.patch
new file mode 100644
index 0000000..b379c68
--- /dev/null
+++ b/debian/patches/fmode_perl_hurd.patch
@@ -0,0 +1,43 @@
+Description: Replace incompatible syscall for Hurd
+Author: Xavier Guimard <x.guimard at free.fr>
+Origin: http://bugs.debian.org/681028
+Bug-Debian: http://bugs.debian.org/681028
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=80607
+Last-Update: 2012-11-04
+
+--- libfilehandle-fmode-perl-0.12.orig/Fmode.pm
++++ libfilehandle-fmode-perl-0.12/Fmode.pm
+@@ -1,5 +1,5 @@
+ package FileHandle::Fmode;
+-use Fcntl qw(O_WRONLY O_RDWR O_APPEND F_GETFL);
++use Fcntl qw(O_ACCMODE O_RDONLY O_WRONLY O_RDWR O_APPEND F_GETFL);
+ use strict;
+ 
+ require Exporter;
+@@ -47,7 +47,7 @@ sub is_RO {
+       return 0;
+     }
+     my $fmode = fcntl($_[0], F_GETFL, my $slush = 0);
+-    if(defined($fmode) && !($fmode & O_WRONLY) && !($fmode & O_RDWR)) {return 1}
++    if(defined($fmode) && ($fmode & O_ACCMODE) == O_RDONLY) {return 1}
+     return 0;
+ }
+ 
+@@ -64,7 +64,7 @@ sub is_WO {
+       return 0;
+     }
+     my $fmode = fcntl($_[0], F_GETFL, my $slush = 0);
+-    if($fmode & O_WRONLY) {return 1}
++    if(defined($fmode) && ($fmode & O_ACCMODE) == O_WRONLY) {return 1}
+     return 0;
+ }
+ 
+@@ -91,7 +91,7 @@ sub is_RW {
+       return 0;
+     }
+     my $fmode = fcntl($_[0], F_GETFL, my $slush = 0);
+-    if($fmode & O_RDWR) {return 1}
++    if(defined($fmode) && ($fmode & O_ACCMODE) == O_RDWR) {return 1}
+     return 0;
+ }
+ 
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..ea222e4
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+fmode_perl_hurd.patch
diff --git a/debian/source/format b/debian/source/format
new file mode 100644
index 0000000..163aaf8
--- /dev/null
+++ b/debian/source/format
@@ -0,0 +1 @@
+3.0 (quilt)

-- 
Debian packaging of libfilehandle-fmode-perl