Merged Irssi SVN (upcoming irssi 0.8.11).

[silc.git] / apps / irssi / src / perl / get-signals.pl

diff --git a/apps/irssi/src/perl/get-signals.pl b/apps/irssi/src/perl/get-signals.pl
index df4667cef659928322144880390ae42e363ee74f..c61c81cc934a391bef7c3eef0ae5f8a9e75d4fab 100755 (executable)
--- a/apps/irssi/src/perl/get-signals.pl
+++ b/apps/irssi/src/perl/get-signals.pl
@@ -51,6 +51,9 @@ while (<STDIN>) {
        s/WINDOW_REC[^,]*/Irssi::UI::Window/g;
        s/WI_ITEM_REC[^,]*/iobject/g;
 
+       # perl
+       s/PERL_SCRIPT_REC[^,]*/Irssi::Script/g;
+
        s/([\w\*:]+)(,|$)/"\1"\2/g;
        print "    { \"$signal\", { $_, NULL } },\n";
 }