On Sunday 31 August 2008 14:23:50 Ron Schmidt wrote:
> Warning occurs when issuing 'perl Configure.pl' under cygwin where the
> LANG environment variable does not have a default value on my system.
> Patch to fix is included below.
>
> Index: lib/Parrot/Revision.pm
> ===================================================================
> --- lib/Parrot/Revision.pm (revision 30633)
> +++ lib/Parrot/Revision.pm (working copy)
> @@ -80,19 +80,18 @@
> }
>
> sub _analyze_sandbox {
> + local %ENV = %ENV;
> 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
> my $nul = File::Spec->devnull;
> - my $oldLANG = $ENV{LANG};
> $ENV{LANG} = 'C';
> if ( my @svn_info = qx/svn info 2>$nul/ and $? == 0 ) {
> if ( my ($line) = grep /^Revision:/, @svn_info ) {
> ($revision) = $line =~ /(\d+)/;
> }
> }
> - $ENV{LANG} = $oldLANG;
> return $revision;
> }
That seems reasonable, but how does this work on your system:
local $ENV{LANG} = 'C';
-- c
