Group :: Development/Perl
RPM: podbrowser
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: podbrowser-0.10-alt-Gtk2_init.patch
Download
Download
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';