--- AnyEvent/t/handle/01_readline.t	2008/04/27 17:27:34	1.2
+++ AnyEvent/t/handle/01_readline.t	2008/04/27 19:08:38	1.3
@@ -1,10 +1,11 @@
 #!perl
+
 use strict;
+use AnyEvent::Impl::Perl;
 use AnyEvent::Handle;
 use Test::More tests => 2;
 use Socket;
 
-
 {
    my $cv = AnyEvent->condvar;
 
@@ -28,7 +29,7 @@
 
    $cv->wait;
 
-   is ($concat, "ABCDEFG".("X"x113), 'lines were read correctly');
+   is ($concat, "ABCDEFG".("X" x 113), 'lines were read correctly');
 }
 
 {
@@ -57,5 +58,5 @@
 
    $cv->wait;
 
-   is ($concat, "ABCDEFG".("X"x113), 'second lines were read correctly');
+   is ($concat, "ABCDEFG".("X" x 113), 'second lines were read correctly');
 }