diff options
| author | Jilles Tjoelker <jilles@irssi.org> | 2009-09-06 21:27:38 +0000 |
|---|---|---|
| committer | jilles <jilles@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2009-09-06 21:27:38 +0000 |
| commit | aab41042fc0bd7a57722311bc6c2ba7e38fd93e5 (patch) | |
| tree | 6d3e9e84e8ac9e34e30d2ce5b69e7545ef5f5b71 /src/perl | |
| parent | 60113c0b316012fd9d13f65550f92b572f547276 (diff) | |
| download | irssi-aab41042fc0bd7a57722311bc6c2ba7e38fd93e5.zip | |
Make several signals without parameters available to perl again.
In particular, this includes the "beep" signal.
Submitted by Matt Sparks
Bug #674
git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@5100 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
| -rwxr-xr-x | src/perl/get-signals.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/perl/get-signals.pl b/src/perl/get-signals.pl index 1a686edd..1f410dad 100755 --- a/src/perl/get-signals.pl +++ b/src/perl/get-signals.pl @@ -9,7 +9,7 @@ print "static PERL_SIGNAL_ARGS_REC perl_signal_args[] =\n{\n"; while (<STDIN>) { chomp; - next if (!/^ "([^"]*)"(<.*>)?,\s*(.*)/); + next if (!/^ "([^"]*)"(<.*>)?(?:,\s*(.*))?/); next if (/\.\.\./); next if (/\(/); @@ -60,7 +60,11 @@ while (<STDIN>) { s/PERL_SCRIPT_REC[^,]*/Irssi::Script/g; s/([\w\*:]+)(,|$)/"\1"\2/g; - print " { \"$signal\", { $_, NULL } },\n"; + if ($_ eq "") { + print " { \"$signal\", { NULL } },\n"; + } else { + print " { \"$signal\", { $_, NULL } },\n"; + } } print "\n { NULL }\n};\n"; |