rpms/perl-Net-DNS/F-9 perl-Net-DNS-upstream.patch,NONE,1.1

[Marcela Mašláňová (mmaslano)]

Author: mmaslano

Update of /cvs/pkgs/rpms/perl-Net-DNS/F-9
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv3838

Added Files:
	perl-Net-DNS-upstream.patch 
Log Message:
And now attach the forgotten patch.


perl-Net-DNS-upstream.patch:

--- NEW FILE perl-Net-DNS-upstream.patch ---
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;
 
 }