From 89f70e54e7043c2c80804b3da189e0d860ca0e9e Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 30 Apr 2013 09:52:35 +0000
Subject: [PATCH] reverse_unordered_selects doesn't make sense for this test

---
 t/37_regexp.t | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/t/37_regexp.t b/t/37_regexp.t
index 8936c2a..047e567 100644
--- a/t/37_regexp.t
+++ b/t/37_regexp.t
@@ -49,6 +49,11 @@ foreach my $call_func (@CALL_FUNCS) {
     # connect
     my $dbh = connect_ok( RaiseError => 1, sqlite_unicode => $use_unicode );
 
+    # The following tests are about ordering, so don't reverse!
+    if ($dbh->selectrow_array('PRAGMA reverse_unordered_selects')) {
+      $dbh->do('PRAGMA reverse_unordered_selects = OFF');
+    }
+
     # populate test data
     my @vals = @words;
     if ($use_unicode) {