This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to branch master in repository libglib-perl.
commit c5ac613a90ee1080dd4aa6b788d5d4c95657b56d Author: intrigeri <[email protected]> Date: Mon Aug 10 12:29:18 2015 +0000 debian/patches/fix-gtks-whatis: adjust "if" to match upstream code's style. --- debian/patches/fix-gtks-whatis | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/debian/patches/fix-gtks-whatis b/debian/patches/fix-gtks-whatis index 52d6332..7ca8573 100644 --- a/debian/patches/fix-gtks-whatis +++ b/debian/patches/fix-gtks-whatis @@ -12,14 +12,14 @@ Author: Ryan Niebur <[email protected]> print "=head1 NAME\n\n$package"; - print ' - '.$pkgdata->{blurb} if (exists ($pkgdata->{blurb})); -+ if(exists ($pkgdata->{blurb})) { ++ if (exists ($pkgdata->{blurb})) { + print ' - '.$pkgdata->{blurb}; -+ } elsif($package =~ m/^Gtk2::Pango/) { ++ } elsif ($package =~ m/^Gtk2::Pango/) { + my $newname = $package; + $newname =~ s/Gtk2:://; + print ' - moved to ' . $newname + . ', kept for backwards compatibility' -+ } elsif(convert_to_cname($package)) { ++ } elsif (convert_to_cname($package)) { + print ' - wrapper for '.convert_to_cname($package); + } print "\n\n=cut\n\n"; @@ -32,19 +32,19 @@ Author: Ryan Niebur <[email protected]> +sub convert_to_cname { + my $perlname = shift; + my $cname = $perlname; -+ if($perlname =~ /^Gtk2::Gdk::/) { ++ if ($perlname =~ /^Gtk2::Gdk::/) { + $cname =~ s/^Gtk2::Gdk::/Gdk/; -+ } elsif($perlname =~ m/^Gtk2::/) { ++ } elsif ($perlname =~ m/^Gtk2::/) { + $cname =~ s/^Gtk2::/Gtk/; -+ } elsif($perlname =~ m/^Gnome2::Bonobo::/) { ++ } elsif ($perlname =~ m/^Gnome2::Bonobo::/) { + $cname =~ s/^Gnome2::Bonobo::/Bonobo/; -+ } elsif($perlname =~ m/^Gnome2::/) { ++ } 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) { ++ if ($@ || $tmp ne $perlname) { + return; + } + return $cname; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libglib-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
