… | |
… | |
982 | last; |
982 | last; |
983 | } |
983 | } |
984 | } |
984 | } |
985 | |
985 | |
986 | $MODEL |
986 | $MODEL |
987 | or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib."; |
987 | or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib.\n"; |
988 | } |
988 | } |
989 | } |
989 | } |
990 | |
990 | |
991 | push @{"$MODEL\::ISA"}, "AnyEvent::Base"; |
991 | push @{"$MODEL\::ISA"}, "AnyEvent::Base"; |
992 | |
992 | |
… | |
… | |
1022 | my ($rw, $mode) = $poll eq "r" ? ($r, "<") |
1022 | my ($rw, $mode) = $poll eq "r" ? ($r, "<") |
1023 | : $poll eq "w" ? ($w, ">") |
1023 | : $poll eq "w" ? ($w, ">") |
1024 | : Carp::croak "AnyEvent->io requires poll set to either 'r' or 'w'"; |
1024 | : Carp::croak "AnyEvent->io requires poll set to either 'r' or 'w'"; |
1025 | |
1025 | |
1026 | open my $fh2, "$mode&" . fileno $fh |
1026 | open my $fh2, "$mode&" . fileno $fh |
1027 | or die "cannot dup() filehandle: $!"; |
1027 | or die "cannot dup() filehandle: $!,"; |
1028 | |
1028 | |
1029 | # we assume CLOEXEC is already set by perl in all important cases |
1029 | # we assume CLOEXEC is already set by perl in all important cases |
1030 | |
1030 | |
1031 | ($fh2, $rw) |
1031 | ($fh2, $rw) |
1032 | } |
1032 | } |