From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 20 Apr 2012 03:09:03 +0000 (+0000)
Subject: switch is_ordered to new code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf50645612ba569ee65aaff4630d8e1c83585cb6;p=dbsrgits%2FDBIx-Class-Historic.git

switch is_ordered to new code
---

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index fe0a815..b491e6a 100644
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -3075,7 +3075,7 @@ sub is_paged {
 
 sub is_ordered {
   my ($self) = @_;
-  return scalar $self->result_source->storage->_extract_order_criteria($self->{attrs}{order_by});
+  return $self->_sqla_converter->_order_by_to_dq($self->{attrs}{order_by});
 }
 
 =head2 related_resultset