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

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

Author: ryan52-guest
Date: Fri Mar 13 08:05:14 2009
New Revision: 32020

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32020
Log:
support Pango (it just works), and try to support everything else (if there is anything else..)

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=32020&op=diff
==============================================================================
--- trunk/libglib-perl/debian/patches/fix-gtks-whatis (original)
+++ trunk/libglib-perl/debian/patches/fix-gtks-whatis Fri Mar 13 08:05:14 2009
@@ -32,7 +32,7 @@
  }
  
  sub preprocess_pod
-@@ -1365,6 +1375,31 @@
+@@ -1365,6 +1375,27 @@
  	} while (@dirs);
  }
  
@@ -47,12 +47,8 @@
 +        $cname =~ s/^Gnome2::Bonobo::/Bonobo/;
 +    } elsif($perlname =~ m/^Gnome2::/) {
 +        $cname =~ s/^Gnome2::/Gnome/;
-+    } else {
-+        return;
 +    }
-+    if($cname =~ m/::/) {
-+        $cname =~ s/:://g;
-+    }
++    $cname =~ s/:://g;
 +    my $tmp;
 +    eval { $tmp = Glib::Type->package_from_cname($cname); };
 +    if($@ || $tmp ne $perlname) {