[Bps-public-commit] r15843 - in PerlIO-via-symlink/trunk: .

[clkao at bestpractical.com]

Author: clkao
Date: Mon Sep  8 07:25:00 2008
New Revision: 15843

Modified:
   PerlIO-via-symlink/trunk/   (props changed)
   PerlIO-via-symlink/trunk/CHANGES
   PerlIO-via-symlink/trunk/t/2basic.t

Log:
 r270 at mtl:  clkao | 2005-03-01 21:10:11 +0800
 Since we check error messages, we need to setlocale to C.


Modified: PerlIO-via-symlink/trunk/CHANGES
==============================================================================
--- PerlIO-via-symlink/trunk/CHANGES	(original)
+++ PerlIO-via-symlink/trunk/CHANGES	Mon Sep  8 07:25:00 2008
@@ -1,3 +1,7 @@
+[Changes for 0.04 - 1 Mar, 2005]
+
+Fix tests for non-C locales.
+
 [Changes for 0.04 - 31 Jan, 2005]
 
 Fix tests on Solaris.

Modified: PerlIO-via-symlink/trunk/t/2basic.t
==============================================================================
--- PerlIO-via-symlink/trunk/t/2basic.t	(original)
+++ PerlIO-via-symlink/trunk/t/2basic.t	Mon Sep  8 07:25:00 2008
@@ -7,6 +7,9 @@
 use PerlIO::via::symlink;
 use strict;
 
+use POSIX qw(setlocale LC_ALL);
+setlocale (LC_ALL, 'C');
+
 my $fname = 'symlink-test';
 unlink ($fname);
 open my $fh, '+>:via(symlink)', $fname;