--- a/Lib/Form/Filter/Regexp.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/Form/Filter/Regexp.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,38 +1,38 @@
-package Form::Filter::Regexp;
-use strict;
-use Common;
-use Form::Filter;
-use base qw(Form::Filter);
-
-BEGIN {
-    DeclareProperty Regexp => ACCESS_READ;
-}
-
-sub CTOR {
-    my ($this,@args) = @_;
-    
-    $this->SUPER::CTOR(@args[0,1]);
-
-    my $re = $args[2] or die new Exception('A regular expression is required');
-
-    $this->{$Regexp} = qr/$re/;
-}
-
-sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_EXISTENT }
-
-sub Invoke {
-    my ($this,$object) = @_;
-
-    if ($object->isa('Form::ValueItem')) {
-        my $re = $this->{$Regexp};
-        if ($object->isEmpty or $object->Value =~ m/$re/) {
-            return new Form::FilterResult(State => Form::FilterResult::STATE_SUCCESS);
-        } else {
-            return new Form::FilterResult(Sate => Form::FilterResult::STATE_ERROR, Message => $this->FormatMessage($object), Target => $object );
-        }
-    } else {
-        die new Exception('Only a value items can be verified against a regular expression');
-    }
-}
-
-1;
\ No newline at end of file
+package Form::Filter::Regexp;
+use strict;
+use Common;
+use Form::Filter;
+use base qw(Form::Filter);
+
+BEGIN {
+    DeclareProperty Regexp => ACCESS_READ;
+}
+
+sub CTOR {
+    my ($this,@args) = @_;
+    
+    $this->SUPER::CTOR(@args[0,1]);
+
+    my $re = $args[2] or die new Exception('A regular expression is required');
+
+    $this->{$Regexp} = qr/$re/;
+}
+
+sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_EXISTENT }
+
+sub Invoke {
+    my ($this,$object) = @_;
+
+    if ($object->isa('Form::ValueItem')) {
+        my $re = $this->{$Regexp};
+        if ($object->isEmpty or $object->Value =~ m/$re/) {
+            return new Form::FilterResult(State => Form::FilterResult::STATE_SUCCESS);
+        } else {
+            return new Form::FilterResult(Sate => Form::FilterResult::STATE_ERROR, Message => $this->FormatMessage($object), Target => $object );
+        }
+    } else {
+        die new Exception('Only a value items can be verified against a regular expression');
+    }
+}
+
+1;