From: | gregoa [...] cpan.org |
Subject: | libdbd-xbase-perl: Extend libdbd-xbase-perl to support W type columns (cheap patch) |
We have the following bug reported to the Debian package of DBD-XBase
(https://bugs.debian.org/816634):
It doesn't seem to be a bug in the packaging, so you may want to take
a look. Thanks!
------8<-----------8<-----------8<-----------8<-----------8<-----
Package: libdbd-xbase-perl
Version: 1:1.05-1
Severity: normal
Tags: patch
Dear Maintainer,
this package misses a column type sometimes found in Visual FoxPro.
The Column Type is W. It stores a byte array, similar to the P column type.
Implementing the change in the patch attached solved my problem.
Without that change, the W column type just returns undef/null values upon dumping.
Please apply the attached patch. It justs inserts a single character into XBase.pm.
Regards,
Stefan
--- /usr/share/perl5/XBase.pm.orig 2013-05-26 00:01:23.000000000 +0200
+++ /usr/share/perl5/XBase.pm 2016-03-03 16:27:18.810901565 +0100
@@ -140,7 +140,7 @@
$rproc = sub { unpack 'd', reverse scalar shift; };
$wproc = sub { reverse scalar pack 'd', shift; };
}
- elsif ($type =~ /^[MGP]$/) { # memo fields
+ elsif ($type =~ /^[WMGP]$/) { # memo fields
my $memo = $self->{'memo'};
if (not defined $memo and not $self->{'openoptions'}{'ignorememo'}) {
$memo = $self->{'memo'} = $self->init_memo_field() or return;
------8<-----------8<-----------8<-----------8<-----------8<-----
Thanks for considering,
gregor herrmann,
Debian Perl Group