ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Event/Socket.pm
(Generate patch)

Comparing Coro/Event/Socket.pm (file contents):
Revision 1.15 by root, Sat Mar 22 18:50:32 2003 UTC vs.
Revision 1.16 by root, Sat Mar 22 23:08:41 2003 UTC

… …
26 26
27use Coro::Util (); 27use Coro::Util ();
28 28
29use base 'Coro::Handle'; 29use base 'Coro::Handle';
30 30
31$VERSION = 0.6; 31$VERSION = 0.65;
32 32
33sub _proto($) { 33sub _proto($) {
34 $_proto{$_[0]} ||= do { 34 $_proto{$_[0]} ||= do {
35 ((getprotobyname $_[0])[2] || (getprotobynumber $_[0])[2]) 35 ((getprotobyname $_[0])[2] || (getprotobynumber $_[0])[2])
36 or croak "unsupported protocol: $_[0]"; 36 or croak "unsupported protocol: $_[0]";

Diff Legend

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