X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fsrc%2Fperl%2Firssi-core.pl.h;fp=apps%2Firssi%2Fsrc%2Fperl%2Firssi-core.pl.h;h=0000000000000000000000000000000000000000;hb=72c2de619079457f7a68100eb13385275a424a23;hp=9c4dd606f8d0160a286d26e2efca4398f3499d5e;hpb=e7b6c157b80152bf9fb9266e6bdd93f9fb0db776;p=runtime.git

diff --git a/apps/irssi/src/perl/irssi-core.pl.h b/apps/irssi/src/perl/irssi-core.pl.h
deleted file mode 100644
index 9c4dd606..00000000
--- a/apps/irssi/src/perl/irssi-core.pl.h
+++ /dev/null
@@ -1,52 +0,0 @@
-const char *irssi_core_code =
-"# NOTE: this is printed through printf()-like function,\n"
-"# so no extra percent characters.\n"
-"\n"
-"# %%d : must be first - 1 if perl libraries are to be linked \n"
-"#       statically with irssi binary, 0 if not\n"
-"# %%s : must be second - use Irssi; use Irssi::Irc; etc..\n"
-"package Irssi::Core;\n"
-"\n"
-"use Symbol;\n"
-"\n"
-"sub is_static {\n"
-"  return %d;\n"
-"}\n"
-"\n"
-"sub destroy {\n"
-"  eval { $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); };\n"
-"  Symbol::delete_package($_[0]);\n"
-"}\n"
-"\n"
-"sub eval_data {\n"
-"  my ($data, $id) = @_;\n"
-"  destroy(\"Irssi::Script::$id\");\n"
-"\n"
-"  my $package = \"Irssi::Script::$id\";\n"
-"  my $eval = qq{package $package; %s sub handler { $data; }};\n"
-"  {\n"
-"      # hide our variables within this block\n"
-"      my ($filename, $package, $data);\n"
-"      eval $eval;\n"
-"  }\n"
-"  die $@ if $@;\n"
-"\n"
-"  my $ret;\n"
-"  eval { $ret = $package->handler; };\n"
-"  die $@ if $@;\n"
-"  return $ret;\n"
-"}\n"
-"\n"
-"sub eval_file {\n"
-"  my ($filename, $id) = @_;\n"
-"\n"
-"  local *FH;\n"
-"  open FH, $filename or die \"File not found: $filename\";\n"
-"  local($/) = undef;\n"
-"  my $data = <FH>;\n"
-"  close FH;\n"
-"  local($/) = \"\\n\";\n"
-"\n"
-"  eval_data($data, $id);\n"
-"}\n"
-;