pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-02 07:46:38 +02:00
Code Activity

perl: simplify code to load scripts

Browse Source
This commit is contained in:
Nei
2013-01-09 18:15:51 +01:00
committed by Sebastien Helleu
parent 224a0f0afa
commit 793a3cb1ba
2 changed files with 6 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/weechat-perl.c
+5 -21
View File
@@ -83,34 +83,18 @@ char *perl_weechat_code =
"package WeechatPerlScriptLoader;"
#endif
"$weechat_perl_load_eval_file_error = \"\";"
"sub weechat_perl_load_file"
"{"
" my $filename = shift;"
" local $/ = undef;"
" open FILE, $filename or return \"__WEECHAT_PERL_ERROR__\";"
" $_ = <FILE>;"
" close FILE;"
" return qq{\n#line 1 \"$filename\"\n$_};"
"}"
"sub weechat_perl_load_eval_file"
"{"
#ifdef MULTIPLICITY
" my $filename = shift;"
#else
" my ($filename, $package) = @_;"
#endif
" my $content = weechat_perl_load_file ($filename);"
" if ($content eq \"__WEECHAT_PERL_ERROR__\")"
" {"
" return 1;"
" }"
#ifdef MULTIPLICITY
" my $eval = $content;"
" do $filename;"
#else
" my $eval = qq{package $package; $content;};"
" eval \"package $package; \".'do $filename;';"
#endif
" if ($!)"
" {"
" eval $eval;"
" $weechat_perl_load_eval_file_error = $!;"
" return 1;"
" }"
" if ($@)"
" {"