--- AnyEvent/t/05_dns.t	2008/05/23 16:00:36	1.1
+++ AnyEvent/t/05_dns.t	2008/05/23 16:36:02	1.2
@@ -4,11 +4,12 @@
 # we avoid complicated tests here because some systems will
 # not have working DNS
 
+use AnyEvent::Impl::Perl;
 use AnyEvent::DNS;
 
 print "ok 1\n";
 
-AnyEvent->resolver;
+AnyEvent::DNS::resolver;
 
 print "ok 2\n";