--- AnyEvent/lib/AnyEvent/Handle.pm	2008/05/15 13:32:19	1.13
+++ AnyEvent/lib/AnyEvent/Handle.pm	2008/05/17 19:05:51	1.14
@@ -533,8 +533,8 @@
    my $eol = @_ ? shift : qr|(\015?\012)|;
    my $pos;
 
-   $eol = qr|(\Q$eol\E)| unless ref $eol;
-   $eol = qr|^(.*?)($eol)|;
+   $eol = quotemeta $eol unless ref $eol;
+   $eol = qr|^(.*?)($eol)|s;
 
    sub {
       $_[0]{rbuf} =~ s/$eol// or return;