| … | |
… | |
| 1110 | sub DESTROY { |
1110 | sub DESTROY { |
| 1111 | $_[0][1]->stop; |
1111 | $_[0][1]->stop; |
| 1112 | } |
1112 | } |
| 1113 | |
1113 | |
| 1114 | sub condvar { |
1114 | sub condvar { |
| 1115 | bless \my $flag, urxvt::anyevent::condvar:: |
1115 | bless \my $flag, urxvt::anyevent:: |
| 1116 | } |
1116 | } |
| 1117 | |
1117 | |
| 1118 | sub urxvt::anyevent::condvar::broadcast { |
1118 | sub broadcast { |
| 1119 | ${$_[0]}++; |
1119 | ${$_[0]}++; |
| 1120 | } |
1120 | } |
| 1121 | |
1121 | |
| 1122 | sub urxvt::anyevent::condvar::wait { |
1122 | sub wait { |
| 1123 | unless (${$_[0]}) { |
1123 | unless (${$_[0]}) { |
| 1124 | Carp::croak "AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API"; |
1124 | Carp::croak "AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API"; |
| 1125 | } |
1125 | } |
| 1126 | } |
1126 | } |
| 1127 | |
1127 | |
| 1128 | sub urxvt::anyevent::one_event { |
1128 | sub one_event { |
| 1129 | Carp::croak "AnyEvent->one_event blocking wait unsupported in urxvt, use a non-blocking API"; |
1129 | Carp::croak "AnyEvent->one_event blocking wait unsupported in urxvt, use a non-blocking API"; |
| 1130 | } |
1130 | } |
| 1131 | |
1131 | |
| 1132 | package urxvt::term; |
1132 | package urxvt::term; |
| 1133 | |
1133 | |
