summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-11 17:23:00 +0000
committerKarl Berry <karl@freefriends.org>2008-11-11 17:23:00 +0000
commit9d723c39083647689c6180cfb76b58e18529671f (patch)
treec8dde285a518c785bc258525733aeadfea4ac26a
parenta41a7db955e28248a752c8ca95d78cc8458a391f (diff)
remove extra explicit warn of newline
git-svn-id: svn://tug.org/texlive/trunk@11258 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm12
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2tlpdb4
2 files changed, 0 insertions, 16 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index d23fd2d7e54..d3af63e1a27 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -32,7 +32,6 @@ sub init_from_svn {
die "undefined svn root" if !defined($self->{'svnroot'});
my @lines = `cd $self->{'svnroot'} && svn status -v`;
$self->_initialize_lines(@lines);
- debug("initialized lines\n");
}
sub init_from_statusfile {
@@ -59,18 +58,7 @@ sub _initialize_lines {
my @lines = @_;
my %archs;
# we first chdir to the svn root, we need it for file tests
- debug("_il: about to run pwd, with env:\n");
- for my $key (sort keys %ENV) {
- debug("_il: $key=$ENV{$key}\n");
- }
chomp (my $oldpwd = `pwd`);
- debug("_il: got oldpwd=$oldpwd\n");
- chomp (my $trial2 = `pwd`);
- debug("_il: got trial2=$trial2\n");
- chomp (my $trial3 = `/bin/pwd`);
- debug("_il: got trial3=$trial3\n");
- chomp (my $trial4 = `echo hello`);
- debug("_il: got trial4=$trial4\n");
chdir($self->svnroot) || die "chdir($self->{svnroot}) failed: $!";
foreach my $l (@lines) {
chomp($l);
diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb
index eec8ee5a0c0..26ce7180aa0 100755
--- a/Master/tlpkg/bin/tlpsrc2tlpdb
+++ b/Master/tlpkg/bin/tlpsrc2tlpdb
@@ -24,9 +24,6 @@ use Getopt::Long;
use Pod::Usage;
use File::Path;
-# flush stderr please, mysterious newline.
-select((select(STDERR), $| = 1)[0]);
-
my $opt_all = 0;
my $opt_catalogue = "";
chomp (my $opt_master = `cd $::mydir/../.. && pwd`);
@@ -129,7 +126,6 @@ sub main
}
$tldb->add_tlpobj ($tlp);
}
- warn "\n";
# write the new db, to the real location given --all, or stdout.
if ($opt_all) {