mirrors
/
netsurf
mirror of https://github.com/netsurf-browser/netsurf
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Redo r13857 differently, to avoid issues with non-unixish shells. 

svn path=/trunk/netsurf/; revision=13858
This commit is contained in:
François Revel 2012-04-12 18:17:56 +00:00
parent 480282085f
commit 647a36e2ee
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/svn-testament.pl
View File

@ -12,6 +12,8 @@ If there is no SVN in place, the data is invented arbitrarily.
=cut =cut
$ENV{LC_ALL} = 'C';
my $root = shift @ARGV; my $root = shift @ARGV;
my $targetfile = shift @ARGV; my $targetfile = shift @ARGV;
@ -61,7 +63,7 @@ sub gather_output {
} }
if ( $svn_present ) { 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); my ($key, $value) = split(/: /, $line, 2);
$key = lc($key); $key = lc($key);
$key =~ s/\s+//g; $key =~ s/\s+//g;
@ -76,7 +78,7 @@ if ( $svn_present ) {
my %svnstatus; # The SVN status output my %svnstatus; # The SVN status output
if ( $svn_present ) { 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; chomp $line;
my $op = substr($line, 0, 1); my $op = substr($line, 0, 1);
if ($op eq ' ' && substr($line, 1, 1) ne ' ') { $op = "p"; } if ($op eq ' ' && substr($line, 1, 1) ne ' ') { $op = "p"; }