felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 23:08:40 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Suppress some Perl::Critic warnings.

Browse Source
This commit is contained in:
Dianne Skoll
2023-02-07 13:45:08 -05:00
parent acd641845d
commit 569e315306
2 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
rem2pdf/lib/Remind/PDF.pm
View File

@@ -134,7 +134,7 @@ sub read_one_month
$line = $in->getline();
chomp($line);
if ($line =~ /^\S+ \S+ \S+ \S+ \S+ \S+ \S+$/) {
@{$self->{daynames}} = map { s/_/ /g; $_; } (split(/ /, $line));
@{$self->{daynames}} = map { s/_/ /g; $_; } (split(/ /, $line)); ## no critic
} else {
return (undef, "Cannot interpret line: $line");
}
@@ -213,7 +213,7 @@ hash keys found in the newer "remind -pp" JSON output.
sub parse_oldstyle_line
{
my ($self, $line) = @_;
return undef unless $line =~ m|^(\d+)/(\d+)/(\d+) (\S+) (\S+) (\S+) (\S+) (.*)$|;
return unless $line =~ m|^(\d+)/(\d+)/(\d+) (\S+) (\S+) (\S+) (\S+) (.*)$|;
my $hash = {
date => "$1-$2-$3",