[Catalyst-commits] r10915 - Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Schema/ResultSet

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2009-07-17 08:54:05 +0000 (Fri, 17 Jul 2009)
New Revision: 10915

Modified:
   Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Schema/ResultSet/Track.pm
Log:
fixed failing test

Modified: Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Schema/ResultSet/Track.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Schema/ResultSet/Track.pm	2009-07-17 05:18:22 UTC (rev 10914)
+++ Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Schema/ResultSet/Track.pm	2009-07-17 08:54:05 UTC (rev 10915)
@@ -7,10 +7,12 @@
 	my $self = shift;
 	my ($clause, $params) = @_;
 
-	# test custom attrs
-	if (my $pretend = delete $clause->{pretend}) {
-		$clause->{'cd.year'} = $pretend;
-	}
+  if (ref $clause eq 'HASH') {
+    # test custom attrs
+    if (my $pretend = delete $clause->{pretend}) {
+      $clause->{'cd.year'} = $pretend;
+    }
+  }
   my $rs = $self->SUPER::search(@_);	
 }