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

[robkinyon at dev.catalyst.perl.org]

Author: robkinyon
Date: 2009-03-19 17:05:00 +0000 (Thu, 19 Mar 2009)
New Revision: 5772

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
Log:
Special-case handling for (undef,undef) passed to search_rs()

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2009-03-19 00:15:12 UTC (rev 5771)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSet.pm	2009-03-19 17:05:00 UTC (rev 5772)
@@ -279,6 +279,11 @@
 sub search_rs {
   my $self = shift;
 
+  # Special-case handling for (undef, undef).
+  if ( @_ == 2 && !defined $_[1] && !defined $_[0] ) {
+    pop(@_); pop(@_);
+  }
+
   my $attrs = {};
   $attrs = pop(@_) if @_ > 1 and ref $_[$#_] eq 'HASH';
   my $our_attrs = { %{$self->{attrs}} };