From 9155e8d6752d34e4ea3f022ee51e099420517669 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Wed, 7 Aug 2024 15:32:49 +0200 Subject: Adding upstream version 1.22.10. Signed-off-by: Daniel Baumann --- scripts/Dpkg/Changelog/Debian.pm | 2 +- scripts/Dpkg/Changelog/Entry/Debian.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'scripts/Dpkg/Changelog') diff --git a/scripts/Dpkg/Changelog/Debian.pm b/scripts/Dpkg/Changelog/Debian.pm index e7dd7c4..051bea7 100644 --- a/scripts/Dpkg/Changelog/Debian.pm +++ b/scripts/Dpkg/Changelog/Debian.pm @@ -200,7 +200,7 @@ sub parse { $self->parse_error($file, $., $error, $_); } $expect = NEXT_OR_EOF; - } elsif (m/^ \-\-/) { + } elsif (m/^ --/) { $self->parse_error($file, $., g_('badly formatted trailer line'), "$_"); } elsif (m/^\s{2,}(?:\S)/) { unless ($expect eq START_CHANGES or $expect eq CHANGES_OR_TRAILER) { diff --git a/scripts/Dpkg/Changelog/Entry/Debian.pm b/scripts/Dpkg/Changelog/Entry/Debian.pm index c646fcc..11c0906 100644 --- a/scripts/Dpkg/Changelog/Entry/Debian.pm +++ b/scripts/Dpkg/Changelog/Entry/Debian.pm @@ -70,7 +70,7 @@ my $regex_header = qr{ # day of week ($6), date-time ($7) and this into month name ($8). my $regex_trailer = qr< ^ - \ \-\- # Trailer marker + \ -- # Trailer marker \ (.*) # Maintainer name \ \<(.*)\> # Maintainer email (\ \ ?) # Blanks @@ -84,7 +84,7 @@ my $regex_trailer = qr< ) ) \s*$ # Trailing space ->xo; +>x; my %week_day = map { $_ => 1 } qw(Mon Tue Wed Thu Fri Sat Sun); my @month_abbrev = qw( -- cgit v1.2.3