115 # And on Win32 systems, we try to use the native mechanism for this
    116 # platform, the events logger, available through Win32::EventLog.
    117 EVENTLOG: {
    118     my $is_Win32 = $^O =~ /Win32/i;
    119
    120     if (can_load("Sys::Syslog::Win32")) {
    121         unshift @connectMethods, 'eventlog';
    122     }
    123     elsif ($is_Win32) {
    124         warn $@;
    125     }
    126 }


    816 sub can_load {
    817     local($SIG{__DIE__}, $SIG{__WARN__}, $@);
    818     return eval "use $_[0]; 1"
    819 }