avoiding a warning with ams* and rm another (useless) warning

git-svn-id: svn://tug.org/texlive/trunk@7599 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 4 insertions, 4 deletions

diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo
index 6167e5ed568..1d5435cf2ba 100755
--- a/Master/tlpkg/bin/tlpkginfo
+++ b/Master/tlpkg/bin/tlpkginfo
@@ -38,6 +38,9 @@ sub find_ctan_dir
   my ($me) = @_;
   return 1 unless $me;  
   
+  # use explicit catalogue name if given in tlpsrc.
+  $me = &tlpsrc_find_catalogue ($me) || $me;
+  
   # regrettably, this list of amslatex packages is duplicated in ctan2tl.
   # unavoidable since ctan throws them all together, but we don't want
   # to, to preserve the package-per-directory name.
@@ -45,9 +48,6 @@ sub find_ctan_dir
     $me = "amslatex";
   }
 
-  # use explicit catalogue name if given in tlpsrc.
-  $me = &tlpsrc_find_catalogue ($me) || $me;
-  
   # The CTAN path to a package is sometimes stored in the TeX Catalogue,
   # but old entries don't have it, etc.  Still, we want to use it if present.
   my $ctan_dir = &catalogue_find_ctan_path ($me);
@@ -211,7 +211,7 @@ sub copy_to_tmpdir
   system ("rm -rf $pkgdir");
   mkdir ($pkgdir, 0777);
 
-  warn "$0: copying single file $src\n";
+  # warn "$0: copying single file $src\n"; 
   unless (system ("cp -p '$src' '$pkgdir/'") == 0) {
     warn "$0: copy of $src to $pkgdir failed?!\n";
     return undef;