pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-08 18:53:12 +02:00
Code Activity

Added FIFO pipe for remote control

Browse Source
This commit is contained in:
Sebastien Helleu
2005-03-12 03:16:30 +00:00
parent 89c311646f
commit c3f5e88286
32 changed files with 2886 additions and 1872 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/wee-perl.c
+3 -2
View File
@@ -28,6 +28,7 @@
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>
#undef _
#include "../../common/weechat.h"
#include "../plugins.h"
#include "wee-perl.h"
@@ -450,13 +451,13 @@ wee_perl_init ()
" my $content = wee_perl_load_file ($filename);"
" if ($content eq \"__WEECHAT_ERROR__\")"
" {"
" IRC::print \"" WEECHAT_ERROR " Perl script '$filename' not found.\\n\";"
" IRC::print \"WeeChat Error: Perl script '$filename' not found.\\n\";"
" return 1;"
" }"
" eval $content;"
" if ($@)"
" {"
" IRC::print \"" WEECHAT_ERROR " unable to load Perl script '$filename':\\n\";"
" IRC::print \"WeeChat error: unable to load Perl script '$filename':\\n\";"
" IRC::print \"$@\\n\";"
" return 2;"
" }"