| 1 |
diff -up Net-DNS-0.63/lib/Net/DNS.pm.old Net-DNS-0.63/lib/Net/DNS.pm
|
| 2 |
--- Net-DNS-0.63/lib/Net/DNS.pm.old 2008-02-08 16:25:54.000000000 +0100
|
| 3 |
+++ Net-DNS-0.63/lib/Net/DNS.pm 2008-05-12 10:26:14.000000000 +0200
|
| 4 |
@@ -38,17 +38,32 @@ use vars qw(
|
| 5 |
|
| 6 |
|
| 7 |
BEGIN {
|
| 8 |
- require DynaLoader;
|
| 9 |
- require Exporter;
|
| 10 |
- @ISA = qw(Exporter DynaLoader);
|
| 11 |
|
| 12 |
+ require Exporter;
|
| 13 |
+ @ISA = qw(Exporter );
|
| 14 |
+# these need to live here because of dependencies further on.
|
| 15 |
+ @EXPORT = qw(mx yxrrset nxrrset yxdomain nxdomain rr_add rr_del);
|
| 16 |
+ @EXPORT_OK= qw(name2labels wire2presentation rrsort stripdot);
|
| 17 |
|
| 18 |
$VERSION = '0.63';
|
| 19 |
$SVNVERSION = (qw$LastChangedRevision: 710 $)[1];
|
| 20 |
|
| 21 |
$HAVE_XS = eval {
|
| 22 |
local $SIG{'__DIE__'} = 'DEFAULT';
|
| 23 |
- __PACKAGE__->bootstrap(); 1
|
| 24 |
+
|
| 25 |
+
|
| 26 |
+ eval {
|
| 27 |
+ require XSLoader;
|
| 28 |
+ XSLoader::load('Net::DNS', $VERSION);
|
| 29 |
+ 1;
|
| 30 |
+ } or do {
|
| 31 |
+
|
| 32 |
+ require DynaLoader;
|
| 33 |
+ push @ISA, 'DynaLoader';
|
| 34 |
+ bootstrap Net::DNS $VERSION;
|
| 35 |
+ 1;
|
| 36 |
+ };
|
| 37 |
+
|
| 38 |
} ? 1 : 0;
|
| 39 |
|
| 40 |
}
|
Parent Directory
| 
Revision Log