--- a/Lib/IMPL/Test/FailException.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/Test/FailException.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,22 +1,22 @@
-package IMPL::Test::FailException;
-use strict;
-use warnings;
-
-use base qw(IMPL::Exception);
-
-__PACKAGE__->PassThroughArgs;
-
-sub toString {
-    my $this = shift;
-    
-    $this->Message . join("\n",'',map IMPL::Exception::indent($_,1), @{$this->Args} );
-}
-
-sub save {
-    my ($this,$ctx) = @_;
-    
-    $ctx->AddVar(Message => $this->Message);
-    $ctx->AddVar(Args => $this->Args) if @{$this->Args};
-}
-
-1;
+package IMPL::Test::FailException;
+use strict;
+use warnings;
+
+use base qw(IMPL::Exception);
+
+__PACKAGE__->PassThroughArgs;
+
+sub toString {
+    my $this = shift;
+    
+    $this->Message . join("\n",'',map IMPL::Exception::indent($_,1), @{$this->Args} );
+}
+
+sub save {
+    my ($this,$ctx) = @_;
+    
+    $ctx->AddVar(Message => $this->Message);
+    $ctx->AddVar(Args => $this->Args) if @{$this->Args};
+}
+
+1;