From 9d723c39083647689c6180cfb76b58e18529671f Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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(-)

(limited to 'Master/tlpkg')

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