X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FParse%2FDebianChangelog%2FUtil.pm;h=9086249b7fedd027ebcde0b313a7eeb53e347805;hp=4516560a225cc2f70cbbd0bfafa23079b41aa293;hb=fbb1b8f0eb8f097177824599556fce645de0b7d5;hpb=10daaec363999a0a2f5359f69d8a81e0308c537f

diff --git a/lib/Parse/DebianChangelog/Util.pm b/lib/Parse/DebianChangelog/Util.pm
index 4516560..9086249 100644
--- a/lib/Parse/DebianChangelog/Util.pm
+++ b/lib/Parse/DebianChangelog/Util.pm
@@ -96,9 +96,13 @@ sub data2rfc822 {
     for my $f (sort { $fieldimps->{$b} <=> $fieldimps->{$a} } keys %$data) {
 	my $v= $data->{$f} or next;
 	$v =~ m/\S/o || next; # delete whitespace-only fields
-	$v =~ m/\n\S/o && warn("field $f has newline then non whitespace >$v<");
-	$v =~ m/\n[ \t]*\n/o && warn("field $f has blank lines >$v<");
-	$v =~ m/\n$/o && warn("field $f has trailing newline >$v<");
+	$v =~ m/\n\S/o
+	    && warn(__g("field %s has newline then non whitespace >%s<",
+			$f, $v ));
+	$v =~ m/\n[ \t]*\n/o && warn(__g("field %s has blank lines >%s<",
+					 $f, $v ));
+	$v =~ m/\n$/o && warn(__g("field %s has trailing newline >%s<",
+				  $f, $v ));
 	$v =~ s/\$\{\}/\$/go;
 	$rfc822_str .= "$f: $v\n";
     }
@@ -142,7 +146,7 @@ in the output format of C<dpkg-parsechangelog>.
 =cut
 
 sub get_dpkg_changes {
-    my $changes = "\n ".$_[0]->Header."\n .\n".$_[0]->Changes;
+    my $changes = "\n ".($_[0]->Header||'')."\n .\n".($_[0]->Changes||'');
     chomp $changes;
     $changes =~ s/^ $/ ./mgo;
     return $changes;