Subject: | Win32::Unicode::Console::printW fails quietly after call to IPC::System::Simple::capturex |
Date: | Wed, 27 Oct 2010 13:40:15 -0400 |
To: | bug-Win32-Unicode [...] rt.cpan.org, bug-IPC-System-Simple [...] rt.cpan.org |
From: | Andiy Sen <apsen [...] optonline.net> |
Win32::Unicode::Console::print fails quietly after call to
IPC::System::Simple::capturex.
After call to capturex the stdout handle changes and then printW causes "The
handle is invalid" error;
test.pl
=============
use warnings;
use strict;
use IPC::System::Simple qw(capturex);
use Win32::Unicode::Console;
my $output = `chcp`;
print "backticks test start\n";
print $output;
printW $output;
print "backticks test end\n";
$output = capturex('chcp.com');
print "capturex test start\n";
print $output;
printW $output;
print "capturex test end\n";
=============
output
===============
backticks test start
Active code page: 866
Active code page: 866
backticks test end
capturex test start
Active code page: 866
capturex test end
==============
perl -v
=========
This is perl 5, version 12, subversion 2 (v5.12.2) built for
MSWin32-x64-multi-thread
(with 8 registered patches, see perl -V for more detail)
Copyright 1987-2010, Larry Wall
Binary build 1202 [293621] provided by ActiveState
http://www.ActiveState.com
Built Sep 6 2010 22:53:42
Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
==========
IPC::System::Simple: 1.21
Win32::Unicode: 0.24
OS: Microsoft Windows [Version 6.1.7600]
Thanks,
Andriy