diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-08-26 10:17:26 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-08-26 10:17:26 +0000 |
commit | d6e1d2323492fd53d142c79c1816f132ec161b83 (patch) | |
tree | 71fb9778de5e8ef50446e7d32b07f088e4ede23a /t | |
parent | Adding upstream version 13.16. (diff) | |
download | debhelper-d6e1d2323492fd53d142c79c1816f132ec161b83.tar.xz debhelper-d6e1d2323492fd53d142c79c1816f132ec161b83.zip |
Adding upstream version 13.17.upstream/13.17
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 't')
-rwxr-xr-x | t/size.t | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -21,12 +21,12 @@ foreach my $file (@progs) { while (<$fd>) { $cutting=1 if /^=/; $cutting=0 if /^=cut/; - next if $cutting || /^(?:=|\s*(?:\#.*|[}]\s*)?$)/; + next if $cutting || /^(?:=|\s*(?:\#.*|[{}]\s*)?$)/; $lines++; $maxlength=length($_) if length($_) > $maxlength; } close($fd); print "# $file has $lines lines, max length is $maxlength\n"; - ok($lines < 200, $file); - ok($maxlength < 160, $file); + ok($lines < 200, $file) or diag("lines: ${lines}"); + ok($maxlength < 160, $file) or diag("maxlength: ${maxlength}"); } |