diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |