ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.201 by root, Wed Apr 1 14:08:27 2009 UTC vs.
Revision 1.203 by root, Sat Apr 11 05:56:36 2009 UTC

… …
873no warnings; 873no warnings;
874use strict qw(vars subs); 874use strict qw(vars subs);
875 875
876use Carp; 876use Carp;
877 877
878our $VERSION = 4.35; 878our $VERSION = 4.351;
879our $MODEL; 879our $MODEL;
880 880
881our $AUTOLOAD; 881our $AUTOLOAD;
882our @ISA; 882our @ISA;
883 883
… …
1099 my $signal = uc $arg{signal} 1099 my $signal = uc $arg{signal}
1100 or Carp::croak "required option 'signal' is missing"; 1100 or Carp::croak "required option 'signal' is missing";
1101 1101
1102 $SIG_CB{$signal}{$arg{cb}} = $arg{cb}; 1102 $SIG_CB{$signal}{$arg{cb}} = $arg{cb};
1103 $SIG{$signal} ||= sub { 1103 $SIG{$signal} ||= sub {
1104 local $!;
1104 syswrite $SIGPIPE_W, "\x00", 1 unless %SIG_EV; 1105 syswrite $SIGPIPE_W, "\x00", 1 unless %SIG_EV;
1105 undef $SIG_EV{$signal}; 1106 undef $SIG_EV{$signal};
1106 }; 1107 };
1107 1108
1108 bless [$signal, $arg{cb}], "AnyEvent::Base::Signal" 1109 bless [$signal, $arg{cb}], "AnyEvent::Base::Signal"

Diff Legend

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