diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-02-20 12:26:39 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-02-20 12:26:39 +0000 |
commit | 81765705219670c136c25ad8c26d9ba39ced2b56 (patch) | |
tree | 5d91940f01a647f7d049b2e78c47d29083951b6d /Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl | |
parent | 04e398adab268585f8e0fa76d587ab5d5a475dc2 (diff) |
Transition 32-bit => 64-bit for Windows; tlpostcode
git-svn-id: svn://tug.org/texlive/trunk@65953 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl')
-rw-r--r-- | Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl b/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl index aa2a330bf69..014d3c768cd 100644 --- a/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl +++ b/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl @@ -32,7 +32,7 @@ BEGIN { unshift (@INC, "$texdir/tlpkg"); } -use TeXLive::TLUtils qw(win32 mkdirhier conv_to_w32_path +use TeXLive::TLUtils qw(wndws mkdirhier conv_to_w32_path debug ddebug log info tlwarn); @@ -159,7 +159,7 @@ my %original = ( ); $::lang = "C"; -if (TeXLive::TLUtils::win32()) { +if (TeXLive::TLUtils::wndws()) { require TeXLive::TLWinGoo; } require("TeXLive/trans.pl"); @@ -231,7 +231,7 @@ sub do_install { my $toolsdir; my $tugdir; my $inifile; - if (win32()) { + if (wndws()) { # we assume TeXworks from TL, thus IniFormat chomp( my $twini = `kpsewhich -var-value=TW_INIPATH` ) ; $toolsdir = "$twini/configuration"; @@ -316,7 +316,7 @@ sub do_install { for my $t (sort keys %original) { my $id = sprintf("%03d", ++$highest_entry); $entries{$id} = $original{$t}; - if (win32()) { + if (wndws()) { $entries{$id}{'program'} .= ".exe"; } } @@ -326,7 +326,7 @@ sub do_install { for my $t (sort keys %ptex2pdf) { my $id = sprintf("%03d", ++$highest_entry); $entries{$id} = $ptex2pdf{$t}; - if (win32()) { + if (wndws()) { $entries{$id}{'program'} .= ".exe"; } } |