summaryrefslogtreecommitdiff
path: root/utils/svn-testament.pl
diff options
context:
space:
mode:
authorFrançois Revel <mmu_man@netsurf-browser.org>2012-04-12 18:17:56 +0000
committerFrançois Revel <mmu_man@netsurf-browser.org>2012-04-12 18:17:56 +0000
commit647a36e2ee1feb35a872a066c9e652e459a8b32c (patch)
tree2828b61d9e9dd5b9113561e37b28086fadacac3f /utils/svn-testament.pl
parent480282085f0039dcefa12a41a42bd97a61b3b264 (diff)
downloadnetsurf-647a36e2ee1feb35a872a066c9e652e459a8b32c.tar.gz
netsurf-647a36e2ee1feb35a872a066c9e652e459a8b32c.tar.bz2
Redo r13857 differently, to avoid issues with non-unixish shells.
svn path=/trunk/netsurf/; revision=13858
Diffstat (limited to 'utils/svn-testament.pl')
-rwxr-xr-xutils/svn-testament.pl6
1 files 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"; }