diff options
Diffstat (limited to 'feature-tests')
| -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(); +} | 
