Adding upstream version 1.4.5.upstream/1.4.5upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 61 insertions, 0 deletions

diff --git a/src/perl/irssi-core.pl b/src/perl/irssi-core.pl
new file mode 100644
index 0000000..0999de9
--- /dev/null
+++ b/src/perl/irssi-core.pl
@@ -0,0 +1,61 @@
+# 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, "");
+}