s/pl/ok/ #typo

diff --git a/lib/Reaction/UI/ViewPort/Action/Role/OK.pm b/lib/Reaction/UI/ViewPort/Action/Role/OK.pm
index 52f43a7..59e96c7 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Action/Role/OK.pm
+++ b/lib/Reaction/UI/ViewPort/Action/Role/OK.pm
@@ -16,7 +16,7 @@ sub ok {
 around accept_events => sub {
   my $orig = shift;
   my $self = shift;
-  ( ($self->has_on_close_callback ? ('pl') : ()), $self->$orig(@_) );
+  ( ($self->has_on_close_callback ? ('ok') : ()), $self->$orig(@_) );
 };
 
 1;