[libglib-perl] 02/05: debian/patches/fix-gtks-whatis: adjust indentation of added lines, to match upstream code's style.

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch master
in repository libglib-perl.

commit ad89e95f3d63055dfea58c72e42a8a6737219254
Author: intrigeri <intrigeri at boum.org>
Date:   Mon Aug 10 12:27:00 2015 +0000

    debian/patches/fix-gtks-whatis: adjust indentation of added lines, to match upstream code's style.
---
 debian/patches/fix-gtks-whatis | 59 +++++++++++++++++++++---------------------
 1 file changed, 30 insertions(+), 29 deletions(-)

diff --git a/debian/patches/fix-gtks-whatis b/debian/patches/fix-gtks-whatis
index a787fbf..52d6332 100644
--- a/debian/patches/fix-gtks-whatis
+++ b/debian/patches/fix-gtks-whatis
@@ -7,46 +7,47 @@ Author: Ryan Niebur <ryan at debian.org>
 
 --- a/lib/Glib/GenPod.pm
 +++ b/lib/Glib/GenPod.pm
-@@ -278,7 +278,15 @@
+@@ -278,7 +278,16 @@ sub xsdoc2pod
  		# 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($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);
-+                }
++		if(exists ($pkgdata->{blurb})) {
++			print ' - '.$pkgdata->{blurb};
++		} elsif($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 
-@@ -1522,6 +1530,27 @@
+@@ -1522,6 +1531,27 @@ sub mkdir_p {
  	} while (@dirs);
  }
  
 +sub convert_to_cname {
-+    my $perlname = shift;
-+    my $cname = $perlname;
-+    if($perlname =~ /^Gtk2::Gdk::/) {
-+        $cname =~ s/^Gtk2::Gdk::/Gdk/;
-+    } elsif($perlname =~ m/^Gtk2::/) {
-+        $cname =~ s/^Gtk2::/Gtk/;
-+    } elsif($perlname =~ m/^Gnome2::Bonobo::/) {
-+        $cname =~ s/^Gnome2::Bonobo::/Bonobo/;
-+    } elsif($perlname =~ m/^Gnome2::/) {
-+        $cname =~ s/^Gnome2::/Gnome/;
-+    }
-+    $cname =~ s/:://g;
-+    my $tmp;
-+    eval { $tmp = Glib::Type->package_from_cname($cname); };
-+    if($@ || $tmp ne $perlname) {
-+        return;
-+    }
-+    return $cname;
++	my $perlname = shift;
++	my $cname = $perlname;
++	if($perlname =~ /^Gtk2::Gdk::/) {
++		$cname =~ s/^Gtk2::Gdk::/Gdk/;
++	} elsif($perlname =~ m/^Gtk2::/) {
++		$cname =~ s/^Gtk2::/Gtk/;
++	} elsif($perlname =~ m/^Gnome2::Bonobo::/) {
++		$cname =~ s/^Gnome2::Bonobo::/Bonobo/;
++	} elsif($perlname =~ m/^Gnome2::/) {
++		$cname =~ s/^Gnome2::/Gnome/;
++	}
++	$cname =~ s/:://g;
++	my $tmp;
++	eval { $tmp = Glib::Type->package_from_cname($cname); };
++	if($@ || $tmp ne $perlname) {
++		return;
++	}
++	return $cname;
 +}
 +
  1;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libglib-perl.git