diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-28 05:29:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-28 05:29:37 +0000 |
| commit | 1be9d9c6b6c7b8f67a48645f860e0d26d513177a (patch) | |
| tree | e4c8e0a2302a34bd209165874fb98824beab3b4d /win32 | |
| parent | 954c1994944eafa74aaac1bab94e820b6e447da9 (diff) | |
| download | perl-1be9d9c6b6c7b8f67a48645f860e0d26d513177a.tar.gz | |
more exported symbols needed for build on windows
p4raw-id: //depot/perl@4916
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/win32/win32.c b/win32/win32.c index af5e454f27..a50e8db0b0 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -1690,6 +1690,8 @@ FAILED: return -1; } +#ifndef PERL_OBJECT + static UINT timerid = 0; static VOID CALLBACK TimerProc(HWND win, UINT msg, UINT id, DWORD time) @@ -1699,10 +1701,12 @@ static VOID CALLBACK TimerProc(HWND win, UINT msg, UINT id, DWORD time) timerid=0; sighandler(14); } +#endif /* !PERL_OBJECT */ DllExport unsigned int win32_alarm(unsigned int sec) { +#ifndef PERL_OBJECT /* * the 'obvious' implentation is SetTimer() with a callback * which does whatever receiving SIGALRM would do @@ -1727,6 +1731,7 @@ win32_alarm(unsigned int sec) timerid=0; } } +#endif /* !PERL_OBJECT */ return 0; } @@ -2454,7 +2459,7 @@ win32_link(const char *oldname, const char *newname) WCHAR wNewName[MAX_PATH+1]; if (IsWin95()) - Perl_die(aTHX_ PL_no_func, "link"); + Perl_croak(aTHX_ PL_no_func, "link"); pfnCreateHardLinkW = (BOOL (__stdcall *)(LPCWSTR, LPCWSTR, LPSECURITY_ATTRIBUTES)) |