diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-02-20 09:58:19 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-02-20 09:58:19 +0000 |
commit | 81112f8b0ad3c7f836f0c69aafee1f6a813772b8 (patch) | |
tree | 98427b5826ba54609138a95a8d9b0515843beb62 /Master/tlpkg/TeXLive/TLCrypto.pm | |
parent | 7a0c724008ca1fd567252a5582c94a37e69ba04f (diff) |
Transition 32-bit => 64-bit for Windows; ,pm files
git-svn-id: svn://tug.org/texlive/trunk@65950 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLCrypto.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLCrypto.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLCrypto.pm b/Master/tlpkg/TeXLive/TLCrypto.pm index a75c8507b8a..cb31e1efc5f 100644 --- a/Master/tlpkg/TeXLive/TLCrypto.pm +++ b/Master/tlpkg/TeXLive/TLCrypto.pm @@ -9,7 +9,7 @@ package TeXLive::TLCrypto; use Digest::MD5; use TeXLive::TLConfig; -use TeXLive::TLUtils qw(debug ddebug win32 which platform +use TeXLive::TLUtils qw(debug ddebug wndws which platform conv_to_w32_path tlwarn tldie); my $svnrev = '$Revision$'; @@ -421,7 +421,7 @@ sub setup_gpg { # Set up the gpg invocation: my $gpghome = ($ENV{'TL_GNUPGHOME'} ? $ENV{'TL_GNUPGHOME'} : "$master/tlpkg/gpg" ); - $gpghome =~ s!/!\\!g if win32(); + $gpghome =~ s!/!\\!g if wndws(); my $gpghome_quote = "\"$gpghome\""; # mind the final space for following args $::gpg = "$prg --homedir $gpghome_quote "; @@ -568,7 +568,7 @@ Internal routine running gpg to verify signature C<$sig> of C<$file>. sub gpg_verify_signature { my ($file, $sig) = @_; my ($file_quote, $sig_quote); - if (win32()) { + if (wndws()) { $file =~ s!/!\\!g; $sig =~ s!/!\\!g; } |