[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