Skip Menu |
 
rt.cpan.org will be shut down on March 1st, 2021.

This queue is for tickets about the AnyData CPAN distribution.

Report information
The Basics
Id: 6251
Status: resolved
Priority: 0/
Queue: AnyData

People
Owner: Nobody in particular
Requestors: perlbug [...] 5cats.org
Cc:
AdminCc:

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

Attachments


Subject: adColumn $distinct_flag not handled (patch supplied)
Download (untitled) / with headers
text/plain 583b
Dist: AnyData-0.10, obtained from cpan.org Perl: v5.8.2 OS: MacOS X 3.3, GNU/Linux 2.4.20 Patch: Supplied AnyData::adColumn() is documented to take a third parameter to eliminate duplicated from the returned array of values. However, the parameter is not handled in AnyData.pm. The patch just passes the parameter to the underlying '$obj->adColumn' call which handles the third arg fully. Additionally, I added a semicolons to the final sub statement for both adRows() and adColumn(), though they weren't actually causing any trouble that I'm aware of. Cheers, John D. Lima
Download AnyData-0.10.patch
text/x-diff 524b
--- AnyData.pm.orig Thu May 6 14:07:17 2004 +++ AnyData.pm Thu May 6 14:06:37 2004 @@ -498,13 +498,13 @@ my $thash = shift; my %keys = @_; my $obj = tied(%$thash); - return $obj->adRows(\%keys) + return $obj->adRows(\%keys); } sub adColumn { my $thash = shift; - my $column = shift; + my($column,$flags) = @_; my $obj = tied(%$thash); - return $obj->adColumn($column) + return $obj->adColumn($column,$flags); } sub adArray { my($format,$data)=@_;
I've applied the patch and it should be resolved in 0.11 Cheers Sven


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.