In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c95f3a5940d5ad03a2f91205377a2695ef63ab58?hp=33f804f62a826768d8f4694d2fd94f587e12c6f5>
- Log ----------------------------------------------------------------- commit c95f3a5940d5ad03a2f91205377a2695ef63ab58 Author: Steve Hay <[email protected]> Date: Wed Aug 15 09:23:07 2012 +0100 Add new Win32 test script to MANIFEST The file was added by c3c06741ad. M MANIFEST commit 1070c8d6ea3781940b822c1474f591b8f511dddf Author: Steve Hay <[email protected]> Date: Wed Aug 15 09:02:12 2012 +0100 Fix t/op/magic.t on Windows These tests have been failing since they were added by 613c63b465, but we can now fix them using new Win32 APIs. M t/op/magic.t commit 44db81561237fa7e17ad3f897e6f643a1c77f44a Author: Steve Hay <[email protected]> Date: Wed Aug 15 08:56:50 2012 +0100 perldelta - note changes in Win32 0.45 M pod/perldelta.pod commit c856fe35357c50514ddcac7e64689f5ac64ec38f Author: Steve Hay <[email protected]> Date: Wed Aug 15 08:52:27 2012 +0100 perldelta - note changes in Encode 2.47 M pod/perldelta.pod ----------------------------------------------------------------------- Summary of changes: MANIFEST | 1 + pod/perldelta.pod | 9 +++++++-- t/op/magic.t | 4 ++++ 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/MANIFEST b/MANIFEST index 9ce2b96..2bbd6ca 100644 --- a/MANIFEST +++ b/MANIFEST @@ -2937,6 +2937,7 @@ cpan/Win32API-File/typemap Win32API::File extension interface types cpan/Win32/Changes Changes for Win32 extension module cpan/Win32/longpath.inc Win32 extension long path support cpan/Win32/Makefile.PL Win32 extension makefile writer +cpan/Win32/t/CodePage.t See if Win32 extension works cpan/Win32/t/CreateFile.t See if Win32 extension works cpan/Win32/t/ExpandEnvironmentStrings.t See if Win32 extension works cpan/Win32/t/GetCurrentThreadId.t See if Win32 extension works diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 288edbc..825f99c 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -168,8 +168,8 @@ internals. =item * L<Encode> has been upgraded from version 2.44 to 2.47. The Mac alias x-mac-ce -has been added, and various bugs have been fixed in Encode::Unicode and -Encode::UTF7. +has been added, and various bugs have been fixed in Encode::Unicode, +Encode::UTF7 and Encode::GSM0338. =item * @@ -232,6 +232,11 @@ modified slightly for reasons of perl internal use only. =item * +L<Win32> has been upgraded from version 0.44 to 0.45. New APIs have been added +for getting setting the current code page. + +=item * + L<Win32CORE> has been upgraded from version 0.02 to 0.03. The use of PERL_NO_GET_CONTEXT here has resulted in smaller machine code. diff --git a/t/op/magic.t b/t/op/magic.t index ebf99a7..38e4fd0 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -70,7 +70,11 @@ sub env_is { if ($Is_MSWin32) { # cmd.exe will echo 'variable=value' but 4nt will echo just the value # -- Nikola Knezevic + require Win32; + my $cp = Win32::GetConsoleOutputCP(); + Win32::SetConsoleOutputCP(Win32::GetACP()); (my $set = `set $key`) =~ s/\r\n$/\n/; + Win32::SetConsoleOutputCP($cp); like $set, qr/^(?:\Q$key\E=)?\Q$val\E$/, $desc; } elsif ($Is_VMS) { is `write sys\$output f\$trnlnm("\Q$key\E")`, "$val\n", $desc; -- Perl5 Master Repository
