sub O_BINARY declaration while already exported by IO::File

Binary package hint: libdbd-xbase-perl

When using the xbase, I get this error:

Prototype mismatch: sub XBase::Base::O_BINARY () vs none at (eval 7) line 1.

To solve it, I have to remove the BEGIN block on XBase/Base.pm:
BEGIN { local $^W = 0;
  if ($^O =~ /mswin/i) {
    eval 'use Fcntl qw( O_BINARY )'
  } else {
    eval ' sub O_BINARY { 0 } '
  }
}

It was an indication given by Paul Gaborit on fr.comp.lang.perl, and I
just report.
Ubuntu Intrepid package doesnt patch it yet.