Bug#537555: perl: problem with File::Copy on GNU/kFreeBSD

[Petr Salinger]

Package: perl
Severity: important
Version: 5.10.0-19
Tags: patch
User: glibc-bsd-devel at lists.alioth.debian.org
Usertags: kfreebsd


Hi,

there is a problem with File::Copy module on GNU/kFreeBSD.

The Copy tries to detect whether source and dest are the same files. 
Unfortunately, on the GNU/kFreeBSD the kernel returns for all pipes
as device and inode numbers just zero. See pipe_stat() in
http://www.freebsd.org/cgi/cvsweb.cgi/src/sys/kern/sys_pipe.c

Please, could you add the patch bellow into Debian version
and inform upstream about this issue.

The current behaviour leads to FTBFS of linuxdoc-tools.

Thanks

 	Petr

--- lib/File/Copy.pm~
+++ lib/File/Copy.pm
@@ -102,7 +102,7 @@
         my @fs = stat($from);
         if (@fs) {
             my @ts = stat($to);
-           if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1]) {
+           if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && ! -p $from) {
                 carp("'$from' and '$to' are identical (not copied)");
                  return 0;
             }