FormValidator::Lite一行パッチ

Perl 
--- Lite.pm     2009-03-30 17:48:49.000000000 +0900
+++ Lite.pm.new 2009-03-30 17:48:21.000000000 +0900
@@ -42,7 +42,7 @@
         for my $rule (@$rules) {
             my $rule_name = ref $rule ? shift(@$rule) : $rule;
             my $is_ok = do {
-                if ((not defined $_) && $rule_name ne 'NOT_NULL') {
+                if ((not defined $_) && $rule_name !~ /\ANOT_(NULL|BLANK)\z/) {
                     1;
                 } else {
                     if (my $file_rule = $FileRules->{$rule_name}) {

　FV::Lite::Constraint::Defaultのaliasですね。
　ついでに言うと、個人的にはエラーメッセージ周りは

--- Lite.pm     2009-03-30 17:52:05.000000000 +0900
+++ Lite.pm.new 2009-03-30 17:52:35.000000000 +0900
@@ -135,7 +135,7 @@
         my $func  = $err->[1];
 
         next if exists $dup_check{"$param.$func"};
-        push @messages, $self->get_error_message( $param, $func );
+        push @messages, (lc($param) => [ $self->get_error_message( $param, $func ) ] );
         $dup_check{"$param.$func"}++;
     }

　こんな感じのが嬉しいけど、まあ、そこはサクッとno warnings 'redefine'つけて再定義すればいいや、という感じです。