update to a less ancient Devel::CheckLib
[imager-screenshot.git] / svwin32.c
1 #include "svwin32.h"
2
3 SSHWND
4 hwnd_from_sv(pTHX_ SV *sv) {
5   SvGETMAGIC(sv);
6
7   if (!SvOK(sv)) {
8     return 0;
9   }
10   if (SvPOK(sv)) {
11     STRLEN len;
12     char const *p = SvPV_nomg(sv, len);
13
14     if (len == 6 && strEQ(p, "active")) {
15       return (SSHWND)GetForegroundWindow();
16     }
17   }
18
19   return SvUV_nomg(sv);
20 }