diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 10 |
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; |