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]
