tags 306474 patch thanks [EMAIL PROTECTED]/dpkg--devel--1.13--patch-11:
--- orig/ChangeLog +++ mod/ChangeLog @@ -1,5 +1,7 @@ 2005-07-24 Frank Lichtenheld <[EMAIL PROTECTED]> + * scripts/controllib.pl (capit): uppercase all letters that + come after a minus ('-') * scripts/dpkg-source.pl: handle absolute paths correctly in all (tested) cases of building (-b) --- orig/debian/changelog +++ mod/debian/changelog @@ -18,6 +18,9 @@ Lichtenheld). Closes: #147574 * Change dpkg-dev's dependency on perl5 and perl-modules to a single dependency on perl (Frank Lichtenheld) + * Make the default behaviour for mangling field names + "nicer" by uppercasing all letter that come after a + minus ('-') (Frank Lichtenheld). Closes: #306474 -- --- orig/scripts/controllib.pl +++ mod/scripts/controllib.pl @@ -14,9 +14,6 @@ $parsechangelog= 'dpkg-parsechangelog'; -grep($capit{lc $_}=$_, qw(Pre-Depends Standards-Version Installed-Size - Build-Depends Build-Depends-Indep - Build-Conflicts Build-Conflicts-Indep)); @pkg_dep_fields = qw(Replaces Provides Depends Pre-Depends Recommends Suggests Conflicts Enhances); @src_dep_fields = qw(Build-Depends Build-Depends-Indep @@ -69,8 +66,8 @@ @fowner = @fowner[2,3]; sub capit { - return defined($capit{lc $_[0]}) ? $capit{lc $_[0]} : - (uc substr($_[0],0,1)).(lc substr($_[0],1)); + my @pieces = map { ucfirst } split /-/, $_[0]; + return join '-', @pieces; } sub findarch { Gruesse, -- Frank Lichtenheld <[EMAIL PROTECTED]> www: http://www.djpig.de/ -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]