diff options
| -rw-r--r-- | lib/IM/Engine/Plugin/Commands/Command/Help.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/IM/Engine/Plugin/Commands/Command/Help.pm b/lib/IM/Engine/Plugin/Commands/Command/Help.pm index f400157..5847414 100644 --- a/lib/IM/Engine/Plugin/Commands/Command/Help.pm +++ b/lib/IM/Engine/Plugin/Commands/Command/Help.pm @@ -10,8 +10,9 @@ sub default { my ($sender, $action) = @_; $self->is_active(0); my $prefix = $self->_ime_plugin->prefix; - my $message = IM::Engine::Incoming->new( - sender => $self->_ime_plugin->_last_message->sender, + my $last_message = $self->_ime_plugin->_last_message; + my $message = $last_message->meta->clone_object( + $last_message, message => "${prefix}$action -help", ); return $self->_ime_plugin->incoming($message); |