summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-08 18:47:31 +0000
committerKarl Berry <karl@freefriends.org>2008-11-08 18:47:31 +0000
commite45d23411973f037095805b7b0a8291303828b65 (patch)
treeb22f5b89e4d6f1b75f4544303781f34fd60b82dd /Master/tlpkg/TeXLive/TLTREE.pm
parent02b72f3257a9e754cbeca266658c4bb8855c810e (diff)
less debugging, pwd is generating a blank line?
git-svn-id: svn://tug.org/texlive/trunk@11225 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm13
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: $!";