From: Alexey Tourbin <at@altlinux.ru>
Date: Sun, 26 Jun 2005 08:32:05 +0000 (+0400)
Subject: XSLoader for Sys::Syslog
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db9f82cf4d211df67e3329aa871893615e2a77ed;p=p5sagit%2Fp5-mst-13.2.git

XSLoader for Sys::Syslog
Message-ID: <20050626043204.GA31585@solemn.turbinal.org>

p4raw-id: //depot/perl@24993
---

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index f38238b..7581bcb 100644
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -1,14 +1,13 @@
 package Sys::Syslog;
 require 5.006;
 require Exporter;
-require DynaLoader;
 use Carp;
 use strict;
 
-our @ISA = qw(Exporter DynaLoader);
+our @ISA = qw(Exporter);
 our @EXPORT = qw(openlog closelog setlogmask syslog);
 our @EXPORT_OK = qw(setlogsock);
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 # it would be nice to try stream/unix first, since that will be
 # most efficient. However streams are dodgy - see _syslog_send_stream
@@ -175,7 +174,8 @@ sub AUTOLOAD {
     goto &$AUTOLOAD;
 }
 
-bootstrap Sys::Syslog $VERSION;
+require XSLoader;
+XSLoader::load('Sys::Syslog', $VERSION);
 
 our $maskpri = &LOG_UPTO(&LOG_DEBUG);