From 439a3069c0a001225ff31357116c5b25289974de Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 1 Nov 2009 03:01:18 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLTREE.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Master/tlpkg/TeXLive/TLTREE.pm') 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; -- cgit v1.2.3