summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlpostcode/haranoaji-tlpost.pl')
-rw-r--r--Master/tlpkg/tlpostcode/haranoaji-tlpost.pl18
1 files changed, 9 insertions, 9 deletions
diff --git a/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl b/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl
index 84576fa1c16..1fb281eb0df 100644
--- a/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl
+++ b/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl
@@ -36,20 +36,20 @@ use warnings;
use utf8;
use feature 'state';
use Encode;
-use Encode::Locale;
-
-binmode (STDIN, ':encoding(console_in)');
-binmode (STDOUT, ':encoding(console_out)');
-binmode (STDERR, ':encoding(console_out)');
-
-print "haranoaji-tlpost\n";
if (win32 ()) {
- # `use Win32::API;` raises error in non-Windows even within this block.
+ binmode (STDIN, ':encoding(console_in)');
+ binmode (STDOUT, ':encoding(console_out)');
+ binmode (STDERR, ':encoding(console_out)');
+ print "haranoaji-tlpost\n";
+
+ # These packages are not necessarily available on non-Windows, so
+ # read them at runtime instead of compile time.
+ require Encode::Locale;
require Win32::API;
Win32::API->import ();
} else {
- print "For non-Windows, do nothing\n";
+ print "$0: For non-Windows, do nothing\n";
exit 0;
}