Группа :: Разработка/Perl
Пакет: podbrowser
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: podbrowser-0.10-alt-Gtk2_init.patch
Скачать
Скачать
Fix Gtk2 init
--- ./podbrowser.pl 2006-08-10 19:28:07 +0400
+++ ./podbrowser.pl 2006-08-10 19:28:41 +0400
@@ -5,7 +5,7 @@
# as Perl itself.
use File::Basename qw(dirname);
use File::Temp qw(tempdir tempfile);
-use Gtk2 -init;
+use Gtk2;
use Gtk2::GladeXML 1.001;
use Gtk2::Pango;
use Gtk2::Ex::Simple::List;
@@ -19,6 +19,8 @@
use HTML::Entities qw(encode_entities_numeric);
use strict;
+INIT { Gtk2->init; };
+
### set up global variables:
my $NAME = 'PodBrowser';
my $VERSION = '0.12';