diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index b238e4b96df..fa26389a356 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -1,5 +1,5 @@ # $Id$ -# TeXLive::TLTREE.pm - helper module to work with the tree of all files +# TeXLive::TLTREE.pm - work with the tree of all files # Copyright 2007, 2008 Norbert Preining # # This file is licensed under the GNU General Public License version 2 @@ -29,18 +29,16 @@ sub new { sub init_from_svn { my $self = shift; - die "Undefined svn root" if !defined($self->{'svnroot'}); - debug("initializing from svn tree $self->{'svnroot'}\n"); + die "undefined svn root" if !defined($self->{'svnroot'}); my @lines = `cd $self->{'svnroot'} && svn status -v`; - debug("got lines\n"); $self->_initialize_lines(@lines); debug("initialized lines\n"); } sub init_from_statusfile { my $self = shift; - die("Need a filename of svn status file!") if (@_ != 1); - open(TMP,"<$_[0]") || die("Cannot open svn status file: $_[0]"); + die "need a filename of svn status file" if (@_ != 1); + open(TMP,"<$_[0]") || die "open of svn status file($_[0]) failed: $!"; my @lines = <TMP>; close(TMP); $self->_initialize_lines(@lines); @@ -68,7 +66,6 @@ sub _initialize_lines { chomp (my $oldpwd = `pwd 2>&1`); debug("_il: got oldpwd=$oldpwd\n"); chdir($self->svnroot) || die "chdir($self->{svnroot}) failed: $!"; - debug("_il: walking lines\n"); foreach my $l (@lines) { chomp($l); next if ($l =~ /^\?/); # ignore files not under version control @@ -94,12 +91,10 @@ sub _initialize_lines { } } # save list of architectures -debug("_il: architectures tree\n"); $self->architectures(keys(%archs)); # now do some magic # - create list of top level dirs with a list of full path names of # the respective dir attached -debug("_il: walking tree\n"); $self->walk_tree(\&find_alldirs); chdir($oldpwd) || die "chdir($oldpwd) failed: $!"; |