Mercurial > pub > Impl
view Lib/IMPL/Test/Straps/ShellExecutor.pm @ 78:a5cb84374d40
TT::Control in work
author | wizard |
---|---|
date | Fri, 02 Apr 2010 20:19:17 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
line wrap: on
line source
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;