r32020 - /trunk/libglib-perl/debian/patches/fix-gtks-whatis
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Fri Mar 13 08:05:18 UTC 2009
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) {
More information about the Pkg-perl-cvs-commits
mailing list