Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit8ddf9c1

Browse files
committed
Make win32tzlist.pl checkable again
Commit1301c80 removed some infrastructure needed to checkwindows-oriented perl scripts. It also removed most such scripts, butthis one was left over. We repair the damage by making Win32::Registry aconditional requirement that is only loaded on Windows. With this change`perl -cw win32tzlist.pl` once again passes on non-Windows machines.Discussion:https://postgr.es/m/a2bd77fd-61b8-4c2b-b12e-3e22ae260f82@eisentraut.org
1 parent8793c60 commit8ddf9c1

File tree

1 file changed

+12
-1
lines changed

1 file changed

+12
-1
lines changed

‎src/tools/win32tzlist.pl

Lines changed: 12 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,18 @@
1818
use strict;
1919
use warnings;
2020

21-
use Win32::Registry;
21+
use Config;
22+
23+
our$HKEY_LOCAL_MACHINE;
24+
25+
BEGIN
26+
{
27+
if ($Config{osname}eq'MSWin32' ||$Config{osname}eq'msys')
28+
{
29+
require Win32::Registry;
30+
Win32::Registry->import;
31+
}
32+
}
2233

2334
my$tzfile ='src/bin/initdb/findtimezone.c';
2435

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp