From 643c19ccc0d63265b6610a8379dac9cae3b5e138 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 22 May 2009 10:21:16 +0000 Subject: place: create emtpy tlpsrc files since name and category are set automatically TLPSRC: fix setting package name from empty tlpsrc file if the file name contains directories git-svn-id: svn://tug.org/texlive/trunk@13375 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPSRC.pm | 3 ++- Master/tlpkg/libexec/place | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index aa3d2d6a8e0..c39152b56e5 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -44,7 +44,8 @@ sub from_file my $self = shift; die "need exactly one filename for initialization" if @_ != 1; my $srcfile = $_[0]; - (my $pkgname = $srcfile) =~ s/\.tlpsrc$//; + my $pkgname = TeXLive::TLUtils::basename($srcfile); + $pkgname =~ s/\.tlpsrc$//; if (! -r "$srcfile") { # if the argument is not readable as is, try looking for it in the diff --git a/Master/tlpkg/libexec/place b/Master/tlpkg/libexec/place index cc754a93c46..5b0d796e4ab 100755 --- a/Master/tlpkg/libexec/place +++ b/Master/tlpkg/libexec/place @@ -90,7 +90,10 @@ if (! -r $tlpsrcfile) { local *TLPSRC; $TLPSRC = ">$tlpsrcfile"; open (TLPSRC) || die "open($TLPSRC) failed: $!"; - $tlpsrc->writeout(\*TLPSRC); + # not needed, we only set name and category which are taken + # be default from the file name, so do not create useless entries + # but only empty files + # $tlpsrc->writeout(\*TLPSRC); close TLPSRC; } } else { -- cgit v1.2.3