Mercurial > pub > Impl
view Lib/IMPL/Test/Straps/ShellExecutor.pm @ 354:9330835535b9
fixed view double rendering
author | cin |
---|---|
date | Wed, 16 Oct 2013 17:28:40 +0400 |
parents | 4267a2ac3d46 |
children |
line wrap: on
line source
package IMPL::Test::Straps::ShellExecutor; use strict; use warnings; use parent 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;