mirror of
https://github.com/irssi/irssi.git
synced 2025-02-02 15:08:01 -05:00
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
This commit is contained in:
parent
60113c0b31
commit
aab41042fc
@ -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";
|
||||
|
Loading…
x
Reference in New Issue
Block a user