diff options
author | Karl Berry <karl@freefriends.org> | 2008-08-21 16:50:32 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-08-21 16:50:32 +0000 |
commit | 4ab0e098ab15e8dcaeef87533f1481400a7b323a (patch) | |
tree | d01324f35967540d6010586c0e1628da679c3842 /Master | |
parent | 39c48d617f828e8284bab29afce55737c45254aa (diff) |
consistently use . not _ for backup revs (from Norbert)
git-svn-id: svn://tug.org/texlive/trunk@10392 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 9cf7110194f..aad5f6e9d8d 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -537,7 +537,7 @@ sub action_restore { exit(0); } } - print "Restoring $pkg, $rev from $opt_backupdir/${pkg}_r${rev}.tar.lzma\n"; + print "Restoring $pkg, $rev from $opt_backupdir/${pkg}.r${rev}.tar.lzma\n"; if (!$opt_dry) { init_local_db(1); # first remove the package, then reinstall it @@ -545,7 +545,7 @@ sub action_restore { # force the deinstallation since we will reinstall it $opt_backupdir = abs_path($opt_backupdir); merge_into(\%ret, &remove_package($pkg, $localtlpdb, 1)); - TeXLive::TLMedia->_install_package("$opt_backupdir/${pkg}_r${rev}.tar.lzma" , [] ,$localtlpdb); + TeXLive::TLMedia->_install_package("$opt_backupdir/${pkg}.r${rev}.tar.lzma" , [] ,$localtlpdb); # now we have to read the .tlpobj file and add it to the DB my $tlpobj = TeXLive::TLPOBJ->new; $tlpobj->from_file($localtlpdb->root . "/tlpkg/tlpobj/$pkg.tlpobj"); |