r54329 - /trunk/dh-make-perl/lib/Debian/Control/Stanza.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Mar 14 17:32:21 2010
New Revision: 54329

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54329
Log:
Stanza/as_string(): reorder fields before converting to text

Modified:
    trunk/dh-make-perl/lib/Debian/Control/Stanza.pm

Modified: trunk/dh-make-perl/lib/Debian/Control/Stanza.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Control/Stanza.pm?rev=54329&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Control/Stanza.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Control/Stanza.pm Sun Mar 14 17:32:21 2010
@@ -248,6 +248,8 @@
 
     my @lines;
 
+    $self->Reorder( map{ ( my $s = $_ ) =~ s/_/-/g; $s } $self->fields );
+
     for my $k ( $self->Keys ) {
         # We don't' want the internal fields showing in the output
         next if $k =~ /^-/;     # _ in fielld names is replaced with dashes