41 lines
1013 B
Diff
41 lines
1013 B
Diff
|
diff -up Net-DNS-0.63/lib/Net/DNS.pm.old Net-DNS-0.63/lib/Net/DNS.pm
|
||
|
|
--- Net-DNS-0.63/lib/Net/DNS.pm.old 2008-02-08 16:25:54.000000000 +0100
|
||
|
|
+++ Net-DNS-0.63/lib/Net/DNS.pm 2008-05-12 10:26:14.000000000 +0200
|
||
|
|
@@ -38,17 +38,32 @@ use vars qw(
|
||
|
|
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
- require DynaLoader;
|
||
|
|
- require Exporter;
|
||
|
|
- @ISA = qw(Exporter DynaLoader);
|
||
|
|
|
||
|
|
+ require Exporter;
|
||
|
|
+ @ISA = qw(Exporter );
|
||
|
|
+# these need to live here because of dependencies further on.
|
||
|
|
+ @EXPORT = qw(mx yxrrset nxrrset yxdomain nxdomain rr_add rr_del);
|
||
|
|
+ @EXPORT_OK= qw(name2labels wire2presentation rrsort stripdot);
|
||
|
|
|
||
|
|
$VERSION = '0.63';
|
||
|
|
$SVNVERSION = (qw$LastChangedRevision: 710 $)[1];
|
||
|
|
|
||
|
|
$HAVE_XS = eval {
|
||
|
|
local $SIG{'__DIE__'} = 'DEFAULT';
|
||
|
|
- __PACKAGE__->bootstrap(); 1
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+ eval {
|
||
|
|
+ require XSLoader;
|
||
|
|
+ XSLoader::load('Net::DNS', $VERSION);
|
||
|
|
+ 1;
|
||
|
|
+ } or do {
|
||
|
|
+
|
||
|
|
+ require DynaLoader;
|
||
|
|
+ push @ISA, 'DynaLoader';
|
||
|
|
+ bootstrap Net::DNS $VERSION;
|
||
|
|
+ 1;
|
||
|
|
+ };
|
||
|
|
+
|
||
|
|
} ? 1 : 0;
|
||
|
|
|
||
|
|
}
|