summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index a3e46df2d6b..0d31146c447 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -42,6 +42,11 @@ sub init_from_svn {
my $self = shift;
die "undefined svn root" if !defined($self->{'svnroot'});
my @lines = `cd $self->{'svnroot'} && svn status -v`;
+ my $retval = $?;
+ if ($retval != 0) {
+ $retval /= 256 if $retval > 0;
+ tldie("TLTree: svn status -v returned $retval, stopping.\n");
+ }
$self->_initialize_lines(@lines);
}
@@ -58,6 +63,11 @@ sub init_from_files {
my $svnroot = $self->{'svnroot'};
#my @lines = `find $svnroot ! -wholename '*/.svn*'`;
my @lines = `find $svnroot`;
+ my $retval = $?;
+ if ($retval != 0) {
+ $retval /= 256 if $retval > 0;
+ tldie("TLTree: find $svnroot returned $retval, stopping.\n");
+ }
@lines = grep(!/\/\.svn/ , @lines);
@lines = map { s@^$svnroot@@; s@^/@@; " 1 1 dummy $_" } @lines;
$self->{'revision'} = 1;