Fix -nulls value case-insensitivity

[dbsrgits/SQL-Abstract.git] / lib / SQL / Abstract.pm

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 6a3fa8e..9b29b5e 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1161,7 +1161,7 @@ sub _order_by_chunks {
           $val = $arg->{$key};
         } elsif ($key =~ /^-nulls$/i)  {
           $nulls = $arg->{$key};
-          puke "invalid value for -nulls" unless $nulls =~ /^(?:first|last)$/;
+          puke "invalid value for -nulls" unless $nulls =~ /^(?:first|last)$/i;
         } else {
           puke "invalid key in hash passed to _order_by";
         }