diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
-rwxr-xr-x | Master/tlpkg/bin/tlpkginfo | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo index 7777fa19bca..f0c1d310344 100755 --- a/Master/tlpkg/bin/tlpkginfo +++ b/Master/tlpkg/bin/tlpkginfo @@ -388,6 +388,10 @@ sub prepare { my $catname = tlpsrc_find_catalogue ($pkg); my $catfile = &catalogue_find_file ($catname || $pkg); if ($catfile) { + # quiet update because we want the only stdout to be the + # directory name for ctan2tl to use. + system ("svn -q update $catfile >&2"); + open (CATFILE, "<$catfile") || die "open($catfile) failed, fixme: $!"; # looking for a line like <install path='...'/> # We don't really want to parse xml; turns out these are always on @@ -407,7 +411,7 @@ sub prepare { } #warn "prepare: initial tds_path for $pkg = $tds_path\n"; - # ...except for heiko, when running on tug.org... + # various exceptions to tds.zip location ... if ($pkg eq "context") { $tds_path = "/home/ftp/mirror/www.pragma-ade.nl/context/latest/cont-tmf.zip"; |