--- a/Lib/IMPL/Test/Straps/ShellExecutor.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/Test/Straps/ShellExecutor.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,32 +1,32 @@
-package IMPL::Test::Straps::ShellExecutor;
-use strict;
-use warnings;
-
-use base qw(IMPL::Object IMPL::Object::Serializable);
-
-if ($^O =~ /win32/i) {
-    require Win32::Console;
-}
-
-sub Execute {
-    my ($this,$file) = @_;
-    
-    my $h;
-    
-    if ($^O =~ /win32/i) {
-        Win32::Console::OutputCP(65001);
-        unless ( open $h,'-|',$file ) {
-           return undef;
-        }
-        binmode $h,':encoding(utf-8)';
-    } else {
-        unless ( open $h,'-|',$file ) {
-            return undef;
-        }
-    }
-    
-    return $h; 
-}
-
-
-1;
+package IMPL::Test::Straps::ShellExecutor;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object IMPL::Object::Serializable);
+
+if ($^O =~ /win32/i) {
+    require Win32::Console;
+}
+
+sub Execute {
+    my ($this,$file) = @_;
+    
+    my $h;
+    
+    if ($^O =~ /win32/i) {
+        Win32::Console::OutputCP(65001);
+        unless ( open $h,'-|',$file ) {
+           return undef;
+        }
+        binmode $h,':encoding(utf-8)';
+    } else {
+        unless ( open $h,'-|',$file ) {
+            return undef;
+        }
+    }
+    
+    return $h; 
+}
+
+
+1;