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