| Subject: | adColumn $distinct_flag not handled (patch supplied) |
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
--- 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)=@_;