From 9d723c39083647689c6180cfb76b58e18529671f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 11 Nov 2008 17:23:00 +0000 Subject: remove extra explicit warn of newline git-svn-id: svn://tug.org/texlive/trunk@11258 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLTREE.pm | 12 ------------ Master/tlpkg/bin/tlpsrc2tlpdb | 4 ---- 2 files changed, 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) { -- cgit v1.2.3