- $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 ));