diff options
author | Norbert Preining <preining@logic.at> | 2009-04-28 21:03:34 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-04-28 21:03:34 +0000 |
commit | a7794c641d54540d2d2fc789601b16a978182a1b (patch) | |
tree | 0fa79f0605701f6f5aa49a3d64f71752fe79a9d2 | |
parent | 311a1ac92c00da2d82e88d91355448d3d0861aff (diff) |
fixes fixes fixes
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12843 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 9 |
2 files changed, 5 insertions, 6 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 19a5cd78498..e674b9ffa0c 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -2415,7 +2415,7 @@ sub init_local_db { # stuff changed via the GUI return if defined $localtlmedia; return if defined $localtlpdb; - $localtlmedia = TeXLive::TLMedia->new ("root" => $Master ); + $localtlmedia = TeXLive::TLMedia->new ( $Master ); die("cannot setup TLMedia in $Master") unless (defined($localtlmedia)); $localtlpdb = $localtlmedia->tlpdb; die("cannot find tlpdb in $Master") unless (defined($localtlpdb)); diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 0a2092511be..8d79d62524f 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -42,7 +42,7 @@ sub new } } debug("Loading $location/$InfraLocation/$DatabaseName ...\n"); - my $tlpdb = TeXLive::TLPDB->new($location); + my $tlpdb = TeXLive::TLPDB->new(root => $location); return(undef) unless defined($tlpdb); my (@all_c, @std_c, @lang_c, @lang_doc_c); my (@schemes); @@ -439,10 +439,9 @@ C<TeXLive::TLMedia> -- TeX Live Media module use TeXLive::TLMedia; - my $tlnet = TeXLive::TLMedia->new('NET'); - my $tlneo = TeXLive::TLMedia->new('NET','http://www.ctan.org/mirror/tl/'); - my $tlcd = TeXLive::TLMedia->new('CD','/mnt/tl-cd/'); - my $tldvd = TeXLive::TLMedia->new('DVD','/mnt/tl-dvd/'); + my $tlneo = TeXLive::TLMedia->new('http://www.ctan.org/mirror/tl/'); + my $tlcd = TeXLive::TLMedia->new('/mnt/tl-cd/'); + my $tldvd = TeXLive::TLMedia->new('/mnt/tl-dvd/'); =head1 DESCRIPTION |