--- Coro/eg/lwp	2006/11/05 02:01:24	1.4
+++ Coro/eg/lwp	2007/04/14 15:06:06	1.6
@@ -1,38 +1,25 @@
 #!/usr/bin/perl
 
-# this hack shows how one can get LWP to be less blocking.
-
-{
-   # we replace Socket::inet_aton and CORE::select
-   use Coro::Select; # must come early
-   use Coro::Util;
-   use Coro::Socket;
-   use IO::Socket::INET;
-   use Socket;
-   BEGIN {
-      *Socket::inet_aton = \&Coro::Util::inet_aton;
-      *IO::Socket::INET::new = sub { new Coro::Socket forward_class => @_ };
-   }
-}
-
 use Coro;
 use Coro::Event;
+use Coro::LWP; # should be use'd as early as possible
 use LWP::Simple;
 
 $SIG{PIPE} = 'IGNORE';
 
-async {
-   print "hi2\n";
+my @pids;
+
+push @pid, async {
+   print "starting to fetch http://www.google.de/\n";
    get "http://www.google.de/";
-   print "ho2\n";
+   print "fetched http://www.google.de/\n";
 };
 
-async {
-   print "hi\n";
+push @pid, async {
+   print "starting to fetch http://www.yahoo.com/\n";
    get "http://www.yahoo.com/";
-   print "ho\n";
-
+   print "fetched http://www.yahoo.com/\n";
 };
 
-loop;
+$_->join for @pid;