Package: yarssr
Version: 0.2.2-6
Severity: minor
Tags: patch

Hello,

  I was experiencing 100% CPU load when opening a particular news-item
(lauchning browser). It was comming from Glib::Idle processing in the
"launch_url" subroutine. Changing Glib::Idle to Glib::Timeout seem to fix it
(but not being an expert, it would be good if someone more experienced in
perl and Glib could confirm the patch does not introduce some other problems,
although I haven't yet met with any after patching yarssr on my system).

Thanks,
Pavel


-- System Information:
Debian Release: wheezy/sid
  APT prefers squeeze
  APT policy: (950, 'squeeze'), (950, 'sid'), (950, 'lenny'), (840, 
'testing-proposed-updates'), (840, 'testing'), (740, 'unstable'), (738, 
'experimental'), (540, 'proposed-updates'), (540, 'stable'), (500, 
'oldstable-proposed-updates'), (500, 'oldstable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.39-2-amd64-ipnp-n22a-4 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=cs_CZ.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages yarssr depends on:
ii  libgnome2-perl              1.042-2+b1   Perl interface to the GNOME librar
ii  libgnome2-vfs-perl          1.081-2      Perl interface to the 2.x series o
ii  libgnomevfs2-extra          1:2.24.4-1   GNOME Virtual File System (extra m
ii  libgtk2-gladexml-perl       1.007-1+b1   Perl interface to use user interfa
ii  libgtk2-perl                2:1.223-1+b1 Perl interface to the 2.x series o
ii  libgtk2-trayicon-perl       0.06-1+b1    Perl interface to fill the system 
ii  libxml-rss-perl             1.49-1       Perl module for managing RSS (RDF 
ii  perl                        5.12.3-7+b1  Larry Wall's Practical Extraction 

yarssr recommends no packages.

yarssr suggests no packages.

-- no debconf information
--- yarssr-0.2.2.orig/lib/Yarssr/GUI.pm 2011-07-06 12:23:29.000000000 +0200
+++ yarssr-0.2.2/lib/Yarssr/GUI.pm      2011-07-06 12:26:04.000000000 +0200
@@ -154,7 +154,7 @@
        else {
                if ($child = fork)
                {
-                       Glib::Idle->add(
+                       Glib::Timeout->add(200,
                                sub {
                                        my $kid = waitpid($child,WNOHANG);
                                        $kid > 0 ? return 0 : return 1;

Reply via email to