summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-11-01 03:01:18 +0000
committerNorbert Preining <preining@logic.at>2009-11-01 03:01:18 +0000
commit439a3069c0a001225ff31357116c5b25289974de (patch)
tree640b4d1bf4504d0bb50de28a7e71ef3491b0ce14
parentd6bd87658e864fb47b95c30dba1e472505c26740 (diff)
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
-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;