diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-03-16 15:02:37 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-03-16 15:02:37 +0000 |
commit | 1944915ff698b237c9123b01fec720ab6264b895 (patch) | |
tree | 5cf12c2d0fc9ac68074ab6bd85b1e4b31a8bebbb /Master | |
parent | 1a5b6ae9e7fdc6dc4e99067d0789bce65a5fa21d (diff) |
Added TLWinGoo imports made necessary by use => require
git-svn-id: svn://tug.org/texlive/trunk@6977 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/install-tl.pl | 19 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 2 |
2 files changed, 19 insertions, 2 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 9f3ddf067bb..72d7fe42dcf 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -51,6 +51,23 @@ use TeXLive::TLConfig qw($DefaultContainerExtension $InfraLocation); if (win32) { require TeXLive::TLWinGoo; + TeXLive::TLWinGoo->import( qw( + &wg_error + &admin + &non_admin + ®_country + &dir_writable + &expand_string + &global_tmpdir + &get_system_path + &get_user_path + &add_texbindir_to_path + &remove_texbindirs_from_path + ®ister_script_type + &unregister_script_type + &broadcast_env + &update_assocs + )); } use Getopt::Long; $Getopt::Long::autoabbrev=0; @@ -141,7 +158,7 @@ GetOptions("media=s" => \$opt_media, "netarchive=s" => \$::netarchive, "diskarchive=s" => \$::diskarchive, "lang=s" => \$::lang, - "print-arch" => \$opt_arch, + "print-arch" => \$opt_arch, "d" => \$opt_debug, "dd" => \$opt_ddebug, "ddd" => \$opt_dddebug, diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 2bb9384b2a8..4f4d974a217 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -682,7 +682,7 @@ sub update_assocs() { my $update_fu = new Win32::API('shell32', 'SHChangeNotify', 'LIPP', 'V'); if ($update_fu) { tllog ($::LOG_DDEBUG, "Notifying changes in filetypes...\n"); - $update_fu->Call (SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0) if $update_fu; + $update_fu->Call (SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0); tllog ($::LOG_DDEBUG, "Done notifying\n"); } else { tllog ($::LOG_DDEBUG, "No update_fu\n"); |