diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 4 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 682c05e763b..a8e3dfa91ad 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -160,13 +160,13 @@ sub install_package { if ($container_src_split && $opt_src && ($pkg !~ m/\./) && $tlpobj->srcfiles) { my $srccontainer = $container; - $srccontainer =~ s/(.tar.lzma|.zip)/.source$1/; + $srccontainer =~ s/(\.tar\.lzma|\.zip)$/.source$1/; $self->_install_package($srccontainer,\@installfiles,$totlpdb); } if ($container_doc_split && $opt_doc && ($pkg !~ m/\./) && $tlpobj->docfiles) { my $doccontainer = $container; - $doccontainer =~ s/(.tar.lzma|.zip)/.doc$1/; + $doccontainer =~ s/(\.tar\.lzma|\.zip)$/.doc$1/; $self->_install_package($doccontainer,\@installfiles,$totlpdb); } } diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index b9fe9b8eb67..767a4e87b72 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -561,13 +561,13 @@ sub install_packages { if ($container_src_split && $opt_src && ($package !~ m/\./) && $tlpobj->srcfiles) { my $srccontainer = $container; - $srccontainer =~ s/(.tar.lzma|.zip)/.source$1/; + $srccontainer =~ s/(\.tar\.lzma|\.zip)$/.source$1/; install_package($srccontainer,\@installfiles,$totlpdb->root,$vars{'this_platform'}); } if ($container_doc_split && $opt_doc && ($package !~ m/\./) && $tlpobj->docfiles) { my $doccontainer = $container; - $doccontainer =~ s/(.tar.lzma|.zip)$/.doc$1/; + $doccontainer =~ s/(\.tar\.lzma|\.zip)$/.doc$1/; install_package($doccontainer,\@installfiles,$totlpdb->root,$vars{'this_platform'}); } } |