[Bast-commits] r7820 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[robkinyon at dev.catalyst.perl.org]

Author: robkinyon
Date: 2009-10-26 19:11:22 +0000 (Mon, 26 Oct 2009)
New Revision: 7820

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
Log:
Fixed bad if-check in columns()

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-10-23 20:17:55 UTC (rev 7819)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-10-26 19:11:22 UTC (rev 7820)
@@ -389,7 +389,7 @@
   my $self = shift;
   $self->throw_exception(
     "columns() is a read-only accessor, did you mean add_columns()?"
-  ) if (@_ > 1);
+  ) if @_;
   return @{$self->{_ordered_columns}||[]};
 }