view Lib/IMPL/Test/Straps/ShellExecutor.pm @ 121:92c850d0bdb9

Minor changes Fixed bug with templates base in the PageFormat module Added an ability to remove current security context with a specified
author wizard
date Tue, 08 Jun 2010 03:38:10 +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;