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

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

Author: ryan52-guest
Date: Fri Mar 13 05:54:46 2009
New Revision: 32009

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32009
Log:
add 'moved to blah' whatis entry for Gtk2::Pango::*

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=32009&op=diff
==============================================================================
--- trunk/libglib-perl/debian/patches/fix-gtks-whatis (original)
+++ trunk/libglib-perl/debian/patches/fix-gtks-whatis Fri Mar 13 05:54:46 2009
@@ -29,20 +29,26 @@
  use base 'Exporter';
  
  our @EXPORT = qw(
-@@ -276,7 +290,11 @@
+@@ -276,7 +290,17 @@
  		# end.  But all the other =head1 below need a closing =cut.
  
  		print "=head1 NAME\n\n$package";
 -		print ' - '.$pkgdata->{blurb} if (exists ($pkgdata->{blurb}));
 +                if(exists ($pkgdata->{blurb})) {
 +		print ' - '.$pkgdata->{blurb};
-+                } elsif ($ryan52_hack && convert_to_cname($package)) {
++                } elsif ($ryan52_hack) {
++                if($package =~ m/^Gtk2::Pango/) {
++                my $newname = $package;
++                $newname =~ s/Gtk2:://;
++                print ' - moved to ' . $newname . ', kept for backwards compatibility'
++                } elsif(convert_to_cname($package)) {
 +                print ' - wrapper for '.convert_to_cname($package);
++                }
 +                }
  		print "\n\n=cut\n\n";
  
  		#                   pods            , position 
-@@ -1365,6 +1383,37 @@
+@@ -1365,6 +1389,37 @@
  	} while (@dirs);
  }