Entry tags:

apache, perl, soft, threads, tip

apache2 и треднутый пёрл
Решил я значитсо собрать пёрл с поддержкой тредов.
И чтоб mod_perl при этом работал.
А дистриб - gentoo.
Апач - Apache/2.0.58.
Пёрл - v5.8.8
mod_perl-2.0.2

Добавляю threads к use флагам апача, ithreads к пёрлу, пересобираю апач, пёрл и mod_perl.

На первый взгляд ничего не предвещает беды:

kleptos@localhost ~ $ /usr/sbin/apache2 -V 
Server version: Apache/2.0.58
Server built:   Mar 13 2007 01:15:04
Server’s Module Magic Number: 20020903:12
Server loaded:  APR 0.9.12, APR-UTIL 0.9.12
Compiled using: APR 0.9.12, APR-UTIL 0.9.12
Architecture:   32-bit
Server compiled with....
 -D APACHE_MPM_DIR=“server/mpm/worker”
 -D APR_HAS_SENDFILE
 -D APR_HAS_MMAP
 -D APR_HAVE_IPV6 (IPv4-mapped addresses enabled)
 -D APR_USE_SYSVSEM_SERIALIZE
 -D APR_USE_PTHREAD_SERIALIZE
 -D SINGLE_LISTEN_UNSERIALIZED_ACCEPT
 -D APR_HAS_OTHER_CHILD
 -D AP_HAVE_RELIABLE_PIPED_LOGS
 -D HTTPD_ROOT=“/usr”
 -D SUEXEC_BIN=“/usr/sbin/suexec2”
 -D DEFAULT_SCOREBOARD=“logs/apache_runtime_status”
 -D DEFAULT_ERRORLOG=“logs/error_log”
 -D AP_TYPES_CONFIG_FILE=“/etc/apache2/mime.types”
 -D SERVER_CONFIG_FILE=“/etc/apache2/httpd.conf”
kleptos@localhost ~ $ perl -V | grep ithreads
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define

Но, при старте апача такая картина

localhost downloads # /etc/init.d/apache2 start
 * Apache2 has detected a syntax error in your configuration files:
Syntax error on line 3 of /etc/apache2/modules.d/75_mod_perl.conf:
Cannot load /usr/lib/apache2/modules/mod_perl.so into server: /usr/lib/apache2/modules/mod_perl.so: undefined symbol: Perl_Ipatchlevel_ptr

Уже было собрался писать в ru_linux, но решил предварительно поиграться с ldd.

kleptos@localhost ~ $ ldd /usr/lib/apache2/modules/mod_perl.so 
	linux-gate.so.1 =>  (0xb7f2c000)
	libperl.so.1 => /usr/lib/libperl.so.1 (0xb7da0000)
	libpthread.so.0 => /lib/libpthread.so.0 (0xb7d89000)
	libnsl.so.1 => /lib/libnsl.so.1 (0xb7d70000)
	libdl.so.2 => /lib/libdl.so.2 (0xb7d6c000)
	libm.so.6 => /lib/libm.so.6 (0xb7d44000)
	libcrypt.so.1 => /lib/libcrypt.so.1 (0xb7d15000)
	libutil.so.1 => /lib/libutil.so.1 (0xb7d11000)
	libc.so.6 => /lib/libc.so.6 (0xb7bc7000)
	/lib/ld-linux.so.2 (0x80000000)

Тут я вспомнил, что libperl это вообще-то отдельный компонент и неплохо-бы ему тоже добавить флагов и пересобать.
Добавляю, пересобираю, старную апач - поднимается.
кладу в ~/public_html тестовый скрипт - отдается plaintext, иду править конфиг:

kleptos@localhost ~ $ vim
vim: symbol lookup error: vim: undefined symbol: PL_markstack_ptr

теперь осталось убить всех людей пересобрать всё, что слинковано с libperl и будет мне счастье.

create table tEntity(id int primary key not null, attr1 varchar(100), ...)

create table hEntity(
  when datetime default get_date(), 
  who varchar(30) defualt user_name(),
  action tinyint, -- 0 - update, 1 - delete
  id int not null,
  attr1 varchar(100),
  ...
  primary key (when, id) -- возможны варианты...
)

select f.* from foo f 
where not exists(
  select 1 from foo f2 
  where f2.item_id = f.item_id and f2.rev < @current_rev)

select f.* from foo f 
where not exists(
  select 1 from foo f2 
  where f2.item_id = f.item_id and f2.rev = @current_rev)

--newuse (-N short option)
      Tells emerge to include installed packages where USE flags have
      changed since installation.

--deep (-D short option)
      When used in conjunction with --update, this flag forces emerge
      to consider the entire dependency tree of packages, instead of
      checking only the immediate dependencies of the packages.  As an
      example, this catches updates in libraries that are not directly
      listed in the dependencies of a package.

localhost kleptos # USE="-ithreads" emerge -1avtD perl

These are the packages that would be merged, in reverse order:

Calculating dependencies... done!
[nomerge      ] sys-devel/libperl-5.8.8-r1  USE="berkdb gdbm ithreads -debug" 
[nomerge      ]  dev-lang/perl-5.8.8-r2  USE="berkdb gdbm -build -debug -doc -ithreads* -perlsuid" 
[ebuild     U ]   perl-core/PodParser-1.35 [1.32] 96 kB 
[nomerge      ]   perl-core/Test-Harness-2.64  
[ebuild   R   ]    dev-lang/perl-5.8.8-r2  USE="berkdb gdbm -build -debug -doc -ithreads* -perlsuid" 0 kB 

Total: 2 packages (1 upgrade, 1 reinstall), Size of downloads: 96 kB

Would you like to merge these packages? [Yes/No]