[svn:parrot] r40307 - trunk/lib/Parrot
NotFound at svn.parrot.org
NotFound at svn.parrot.org
Tue Jul 28 14:44:08 UTC 2009
Author: NotFound
Date: Tue Jul 28 14:44:07 2009
New Revision: 40307
URL: https://trac.parrot.org/parrot/changeset/40307
Log:
[config] avoid troubles with locales and svn messages, TT #881, cono++
Modified:
trunk/lib/Parrot/Revision.pm
Modified: trunk/lib/Parrot/Revision.pm
==============================================================================
--- trunk/lib/Parrot/Revision.pm Tue Jul 28 14:09:40 2009 (r40306)
+++ trunk/lib/Parrot/Revision.pm Tue Jul 28 14:44:07 2009 (r40307)
@@ -83,9 +83,11 @@
my $revision = 0;
# code taken from pugs/util/version_h.pl rev 14410
# modified because in xml output commit and entry revision
- # are difficult to distinguih in a simplified parsing
+ # are difficult to distinguish in a simplified parsing
my $nul = File::Spec->devnull;
- local $ENV{LANG} = 'C';
+ # Avoid locale troubles with svn messages
+ local $ENV{LANG} = 'C';
+ local $ENV{LC_ALL} = 'C';
if ( my @svn_info = qx/svn info 2>$nul/ and $? == 0 ) {
if ( my ($line) = grep /^Revision:/, @svn_info ) {
($revision) = $line =~ /(\d+)/;
More information about the parrot-commits
mailing list