Mercurial > pub > Impl
view Lib/IMPL/Test/Straps/ShellExecutor.pm @ 126:c8dfbbdd8005
Several bug fixes
Forms support pre-alfa version
author | wizard |
---|---|
date | Fri, 11 Jun 2010 04:29:51 +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;