[Debian-med-packaging] Bug#434721: perlprimer: first display of tabs is slow on a fast machine.

[Charles Plessy]

Package: perlprimer
Version: 1.1.14-1
Severity: normal

Perlprimer is very slow to display contents for the first time. If I swich to a
previously unused tab, I can see the window being drawn element by element.
However, when swiching back to a previously used tab, the display is
instantaneous.

Using strace, I realised that it seems that PerlPrimer is looking for fonts
when the display is slow: 

readv(3, [{"6-misc-fixed-bold-r-normal--14-1"..., 56}, {"", 0}], 2) = 56
writev(3, [{"1\30\0\r\0\1\0+", 8}, {"-*-*-*-R-Normal--14-130-75-75-*-"..., 43}, {"\0", 1}], 3) = 52
read(3, 0xffa75c98, 32)                 = -1 EAGAIN (Resource temporarily unavailable)
poll([{fd=3, events=POLLIN, revents=POLLIN}], 1, -1) = 1
read(3, "\1?E\364\0\0\0\16\0\1\360$\20\34\364\24\20\35W\340\0\0"..., 32) = 32
readv(3, [{"6-misc-fixed-bold-r-normal--14-1"..., 56}, {"", 0}], 2) = 56
writev(3, [{"1\30\0\17\0\1\0001", 8}, {"-*-*-*-R-Normal--14-130-75-75-*-"..., 49}, {"\0\0\0", 3}], 3) = 60
read(3, 0xffa75c98, 32)                 = -1 EAGAIN (Resource temporarily unavailable)
poll([{fd=3, events=POLLIN, revents=POLLIN}], 1, -1) = 1
read(3, "\1?E\365\0\0\0\20\0\1\360$\20\34\364\24\20\35W\340\0\0"..., 32) = 32
readv(3, [{"?-misc-fixed-medium-r-normal--14"..., 64}, {"", 0}], 2) = 64
writev(3, [{"1\30\0\16\0\1\0000", 8}, {"-*-*-*-R-Normal--14-130-75-75-*-"..., 48}], 2) = 56
read(3, 0xffa75c98, 32)                 = -1 EAGAIN (Resource temporarily unavailable)
poll([{fd=3, events=POLLIN, revents=POLLIN}], 1, -1) = 1
read(3, "\1\227E\366\0\0\0\20\0\0016\370\21V>P\0\0\0\6\377\227\243"..., 32) = 32
readv(3, [{"?-daewoo-gothic-medium-r-normal-"..., 64}, {"", 0}], 2) = 64
writev(3, [{"1\30\0\16\0\1\0/", 8}, {"-*-*-*-R-Normal--14-130-75-75-*-"..., 47}, {"\0", 1}], 3) = 56
read(3, 0xffa75c98, 32)                 = -1 EAGAIN (Resource temporarily unavailable)
poll([{fd=3, events=POLLIN, revents=POLLIN}], 1, -1) = 1
read(3, "\1\227E\367\0\0\0\21\0\0016\370\21V>P\0\0\0\6\377\227\243"..., 32) = 32
readv(3, [{"A-isas-fangsong ti-medium-r-norm"..., 68}, {"", 0}], 2) = 68
writev(3, [{"1\30\0\17\0\1\0001", 8}, {"-*-*-*-R-Normal--14-130-75-75-*-"..., 49}, {"\0\0\0", 3}], 3) = 60
read(3, 0xffa75c98, 32)                 = -1 EAGAIN (Resource temporarily unavailable)
poll([{fd=3, events=POLLIN, revents=POLLIN}], 1, -1) = 1
read(3, "\1\227E\370\0\0\0\20\0\0016\370\21V>P\0\0\0\6\377\227\243"..., 32) = 32
readv(3, [{">-misc-fixed-medium-r-normal--14"..., 64}, {"", 0}], 2) = 64
writev(3, [{"1\30\0\17\0\1\0001", 8}, {"-*-*-*-R-Normal--14-130-75-75-*-"..., 49}, {"\0\0\0", 3}], 3) = 60
read(3, 0xffa75c58, 32)                 = -1 EAGAIN (Resource temporarily unavailable)
poll([{fd=3, events=POLLIN, revents=POLLIN}], 1, -1) = 1
read(3, "\1\227E\371\0\0\0\20\0\0016\370\21V>P\0\0\0\6\377\227\243"..., 32) = 32
readv(3, [{">-misc-fixed-medium-r-normal--14"..., 64}, {"", 0}], 2) = 64
writev(3, [{"1\30\0\r\0\1\0,", 8}, {"-*-*-*-R-Normal--14-130-75-75-*-"..., 44}], 2) = 52
read(3, 0xffa75c98, 32)                 = -1 EAGAIN (Resource temporarily unavailable)

The reason why I file this bug is that I do not rembember seeing this on OSX.

Attached is the full strace of a minimal session.

-- System Information:
Debian Release: 4.0
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: powerpc (ppc64)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18-4-powerpc64
Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8)

Versions of packages perlprimer depends on:
ii  libwww-perl                  5.805-1     WWW client/server library for Perl
ii  perl-tk                      1:804.027-7 Perl module providing the Tk graph

Versions of packages perlprimer recommends:
pn  ncbi-tools-bin                <none>     (no description available)

-- no debconf information
-------------- next part --------------
A non-text attachment was scrubbed...
Name: perlprimer.log.bz2
Type: application/x-bzip2
Size: 159590 bytes
Desc: not available
Url : http://lists.alioth.debian.org/pipermail/debian-med-packaging/attachments/20070726/a7210a46/attachment-0001.bin