From 3ca07a6e98d24e5fb5b4f771fdf40dfaa98b8b96 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 13 Jul 2007 18:43:23 +0000 Subject: try not to suggest passing anonymous arrays for optional arguments :). git-svn-id: svn://tug.org/texlive/trunk@4580 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index a20bf491ba7..3c392242a45 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -16,19 +16,22 @@ TeXLive::TLPDB - a database of TeX Live Packages use TeXLive::TLPDB; - TeXLive::TLPDB->listdir([$dir]); - TeXLive::TLPDB->new ( [ location => "path/to/tlpdb/file" ] ); + TeXLive::TLPDB->new (); + TeXLive::TLPDB->new (location => "/path/to/texlive.tlpdb"); - $tlpdb->location([$location]); + $tlpdb->location("/path/to/texlive.tlpdb"); $tlpdb->from_file($filename); - $tlpdb->writeout([FILEHANDLE]); + $tlpdb->writeout; + $tlpdb->writeout(FILEHANDLE); $tlpdb->save; - $tlpdb->generate_listfiles([$destdir]); $tlpdb->add_objpkg($tlpobj); $tlpdb->get_package("packagename"); $tlpdb->list_packages; $tlpdb->package_revision("packagename"); + TeXLive::TLPDB->listdir([$dir]); + $tlpdb->generate_listfiles([$destdir]); + =head1 DESCRIPTION =cut -- cgit v1.2.3