From 647a36e2ee1feb35a872a066c9e652e459a8b32c Mon Sep 17 00:00:00 2001 From: François Revel Date: Thu, 12 Apr 2012 18:17:56 +0000 Subject: Redo r13857 differently, to avoid issues with non-unixish shells. svn path=/trunk/netsurf/; revision=13858 --- utils/svn-testament.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/utils/svn-testament.pl b/utils/svn-testament.pl index 50f8ae8eb..0f9bc07b2 100755 --- a/utils/svn-testament.pl +++ b/utils/svn-testament.pl @@ -12,6 +12,8 @@ If there is no SVN in place, the data is invented arbitrarily. =cut +$ENV{LC_ALL} = 'C'; + my $root = shift @ARGV; my $targetfile = shift @ARGV; @@ -61,7 +63,7 @@ sub gather_output { } if ( $svn_present ) { - foreach my $line (split(/\n/, gather_output("LC_ALL=C svn info $root"))) { + foreach my $line (split(/\n/, gather_output("svn info $root"))) { my ($key, $value) = split(/: /, $line, 2); $key = lc($key); $key =~ s/\s+//g; @@ -76,7 +78,7 @@ if ( $svn_present ) { my %svnstatus; # The SVN status output if ( $svn_present ) { - foreach my $line (split(/\n/, gather_output("LC_ALL=C svn status $root"))) { + foreach my $line (split(/\n/, gather_output("svn status $root"))) { chomp $line; my $op = substr($line, 0, 1); if ($op eq ' ' && substr($line, 1, 1) ne ' ') { $op = "p"; } -- cgit v1.2.3