r32008 - /trunk/libglib-perl/debian/patches/fix-gtks-whatis

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Fri Mar 13 05:26:23 2009
New Revision: 32008

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32008
Log:
err, make it work right :P

Modified:
    trunk/libglib-perl/debian/patches/fix-gtks-whatis

Modified: trunk/libglib-perl/debian/patches/fix-gtks-whatis
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libglib-perl/debian/patches/fix-gtks-whatis?rev=32008&op=diff
==============================================================================
--- trunk/libglib-perl/debian/patches/fix-gtks-whatis (original)
+++ trunk/libglib-perl/debian/patches/fix-gtks-whatis Fri Mar 13 05:26:23 2009
@@ -6,7 +6,7 @@
 
 --- a/GenPod.pm
 +++ b/GenPod.pm
-@@ -18,8 +18,20 @@
+@@ -18,8 +18,22 @@
  use Data::Dumper;
  use POSIX qw(strftime);
  
@@ -15,10 +15,12 @@
  use Glib;
  
 +if(exists($ENV{'RYAN52_HACK_FOR_GTK2_WHATIS'})) {
-+    use Gtk2;
++    eval "use Gtk2";
++    die($@) if($@);
 +    $ryan52_hack = 1;
 +} elsif(exists($ENV{'RYAN52_HACK_FOR_GNOME2_WHATIS'})) {
-+    use Gnome2;
++    eval "use Gnome2";
++    die($@) if($@);
 +    $ryan52_hack = 1;
 +} else {
 +    $ryan52_hack = 0;
@@ -27,7 +29,7 @@
  use base 'Exporter';
  
  our @EXPORT = qw(
-@@ -276,7 +288,11 @@
+@@ -276,7 +290,11 @@
  		# end.  But all the other =head1 below need a closing =cut.
  
  		print "=head1 NAME\n\n$package";
@@ -40,7 +42,7 @@
  		print "\n\n=cut\n\n";
  
  		#                   pods            , position 
-@@ -1365,6 +1381,37 @@
+@@ -1365,6 +1383,37 @@
  	} while (@dirs);
  }