--- a/Lib/Security.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/Security.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,21 +1,21 @@
-use strict;
-package Security;
-
-use constant {
-    AUTH_FAILED =>      0,
-    AUTH_SUCCESS =>     1,
-    AUTH_INCOMPLETE =>  2,
-    AUTH_NOAUTH =>      3
-};
-
-my $CurrentSession;
-
-sub CurrentSession {
-    my ($class,$newSession) = @_;
-    
-    $CurrentSession = $newSession if @_>=2;
-    return $CurrentSession;
-}
-
-1;
-
+use strict;
+package Security;
+
+use constant {
+    AUTH_FAILED =>      0,
+    AUTH_SUCCESS =>     1,
+    AUTH_INCOMPLETE =>  2,
+    AUTH_NOAUTH =>      3
+};
+
+my $CurrentSession;
+
+sub CurrentSession {
+    my ($class,$newSession) = @_;
+    
+    $CurrentSession = $newSession if @_>=2;
+    return $CurrentSession;
+}
+
+1;
+