| … | |
… | |
| 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 | } |
