Bug#632835: yarssr: High CPU load when starting the browser

This is a multi-part MIME message sent by reportbug.


MIME-Version: 1.0

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


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.


MIME-Version: 1.0

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;




To UNSUBSCRIBE, email to debian-bugs-dist-REQUEST@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org