die if svn status -v or find returned something != 0 on initialization

git-svn-id: svn://tug.org/texlive/trunk@15921 c570f23f-e606-0410-a88d-b1316a301751

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;