[ViewVC] Diff of: cvs/Coro/eg/lwp

Comparing Coro/eg/lwp (file contents):
Revision 1.3 by root, Mon Sep 3 02:50:18 2001 UTC vs.
Revision 1.4 by root, Sun Nov 5 02:01:24 2006 UTC

 #!/usr/bin/perl
-# this hack shows how one can overwrite IO::Socket::INET to provide
+# this hack shows how one can get LWP to be less blocking.
-# non-blocking sockets by default. This makes lwp magically
-# non-blocking. I hope.
 {
-   # this is all the required magic: we replace the constructor.
+   # we replace Socket::inet_aton and CORE::select
+   use Coro::Select; # must come early
+   use Coro::Util;
    use Coro::Socket;
    use IO::Socket::INET;
-   sub IO::Socket::INET::new {
+   use Socket;
-      shift; new Coro::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 LWP::Simple;
 $SIG{PIPE} = 'IGNORE';
 async {
+   print "hi2\n";
+   get "http://www.google.de/";
+   print "ho2\n";
+};
+async {
    print "hi\n";
-   get "http://localhost/";
+   get "http://www.yahoo.com/";
    print "ho\n";
 };
-async {
+loop;
-   print "hi2\n";
-   get "http://localhost/";
-   print "ho2\n";
-};
-loop;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines