Skip Menu |

This queue is for tickets about the DBD-XBase CPAN distribution.

Report information
The Basics
Id: 112743
Status: new
Priority: 0/
Queue: DBD-XBase

People
Owner: Nobody in particular
Requestors: gregoa [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



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