summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpsrc2tlpdb
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-05 13:53:57 +0000
committerKarl Berry <karl@freefriends.org>2008-07-05 13:53:57 +0000
commit728eb6fdc47372ac2cce0c3d0406e478bf84432a (patch)
tree560a37ffe75f276e234fa0cfe23752b34f4b4af2 /Master/tlpkg/bin/tlpsrc2tlpdb
parent6e3a7025f9115b9dc685ed6c5d65147d54d5de9c (diff)
don't complain about mismatched names just because
of .tlpsrc git-svn-id: svn://tug.org/texlive/trunk@9269 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2tlpdb')
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2tlpdb5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb
index a61ddd303ca..7fa316d7ea4 100755
--- a/Master/tlpkg/bin/tlpsrc2tlpdb
+++ b/Master/tlpkg/bin/tlpsrc2tlpdb
@@ -78,8 +78,9 @@ sub main
$tlsrc->from_file ($f);
my $tlp = $tlsrc->make_tlpobj ($tltree);
- warn "$f.tlpsrc: package name " . $tlp->name . " does not match filename\n"
- if $tlp->name ne $f;
+ (my $base_f = $f) =~ s/\.tlpsrc$//;
+ warn "$f: package name " . $tlp->name . " does not match filename\n"
+ if $tlp->name ne $base_f;
if ($tlc) {
# merge TeX Catalogue information