--- AnyEvent/t/handle/01_readline.t	2008/06/06 11:00:32	1.10
+++ AnyEvent/t/handle/01_readline.t	2008/06/06 11:05:16	1.11
@@ -1,11 +1,14 @@
 #!perl
 
+# actually tests a few other read/write types as well
+
 use strict;
 
 use AnyEvent::Impl::Perl;
 use AnyEvent::Handle;
 use Test::More tests => 8;
 use Socket;
+use Errno;
 
 {
    my $cv = AnyEvent->condvar;
@@ -15,7 +18,7 @@
    my $rd_ae = AnyEvent::Handle->new (
       fh       => $rd,
       on_error => sub {
-         ok ($! == Errno::EPIPE);
+         ok ($! == &Errno::EPIPE);
       },
       on_eof   => sub { $cv->broadcast },
    );