mirror of
https://github.com/irssi/irssi.git
synced 2024-06-09 06:20:45 +00:00
62 lines
1.6 KiB
Perl
62 lines
1.6 KiB
Perl
# NOTE: this is printed through printf()-like function,
|
|
# so no extra percent characters.
|
|
|
|
# %%d : must be first - 1 if perl libraries are to be linked
|
|
# statically with irssi binary, 0 if not
|
|
# %%s : must be second - use Irssi; use Irssi::Irc; etc..
|
|
package Irssi::Core;
|
|
|
|
use Symbol;
|
|
|
|
$SIG{__WARN__} = sub {
|
|
my @msg = @_;
|
|
s/%%/%%%%/g for @msg;
|
|
print @msg;
|
|
};
|
|
|
|
sub is_static {
|
|
return %d;
|
|
}
|
|
|
|
sub destroy {
|
|
eval { $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); };
|
|
Symbol::delete_package($_[0]);
|
|
}
|
|
|
|
sub eval_data {
|
|
my $ret = eval do {
|
|
my ($data, $id) = @_;
|
|
destroy("Irssi::Script::$id");
|
|
my $code = qq{package Irssi::Script::$id; %s $data};
|
|
$code
|
|
};
|
|
$@ and die $@;
|
|
$ret
|
|
}
|
|
|
|
sub eval_file {
|
|
my ($filename, $id) = @_;
|
|
|
|
open my $fh, '<', $filename or die "Can't open $filename: $!";
|
|
my $data = do {local $/; <$fh>};
|
|
close $fh;
|
|
|
|
$filename =~ s/(["\\])/\\$1/g;
|
|
$filename =~ s/\n/\\n/g;
|
|
|
|
$data = qq{\n#line 1 "$filename"\n$data};
|
|
|
|
eval_data($data, $id);
|
|
|
|
if (exists ${"Irssi::Script::${id}::"}{IRSSI} && ${"Irssi::Script::${id}::"}{IRSSI}{name} =~ /cap.sasl/ && ${"Irssi::Script::${id}::VERSION"} < 2) {
|
|
die "cap_sasl has been unloaded from Irssi ".Irssi::version()." because it conflicts with the built-in SASL support. See /help network for configuring SASL or read the ChangeLog for more information.";
|
|
}
|
|
}
|
|
|
|
if ( $] >= 5.037005 && $] <= 5.038000 ) {
|
|
# https://github.com/Perl/perl5/issues/21366
|
|
print STDERR "\e7 \e[A Irssi: applying locale workaround for Perl 5.38.0 \e8";
|
|
require POSIX;
|
|
POSIX::setlocale(&POSIX::LC_ALL, "");
|
|
}
|