diff options
-rw-r--r-- | feature-tests/easy_exec.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/feature-tests/easy_exec.pl b/feature-tests/easy_exec.pl new file mode 100644 index 0000000..76cd79f --- /dev/null +++ b/feature-tests/easy_exec.pl @@ -0,0 +1,25 @@ +use strict; +use warnings; + +use Irssi (@Irssi::EXPORT_OK); +use Irssi::Irc; +use Irssi::TextUI; + +use Data::Dumper; + +our $VERSION = '0.1'; +our %IRSSI = ( + authors => '', + contact => '', + name => '', + description => '', + license => 'Public Domain', + ); + +Irssi::signal_add_first 'command script exec', \&better_exec; + +sub better_exec { + my ($args, $serv, $witem) = @_; + eval $args; + Irssi::signal_stop(); +} |