|
394
|
3 |
60 |
unless ($line =~ /
\A
\s *+ # requires perl v5.10
( $RE{'filename'} )
(*PRUNE) # requires perl v5.10
(?:
\s ++
( $RE{'mark'} )
(*PRUNE)
(?:
\s ++
( $RE{'comment'} )
) ?
) ?
\s *
\z
/x and do {
my($filename, $mark, $comment) = ($1, $2, $3);
if ($filename =~ s/ \A ' ( . * ) ' \z /$1;/ex) {
$filename =~ s/ \\ ( ['\\] ) /$1;/egx;
} ;
if (exists $files{$filename}) {
my $f = $files{$filename};
$self->log_error(['%s at %s line %d', $filename, $manifest, $n]);
$self->log_error([' also listed at %s line %d.', $manifest, $f->{'line'}]);
push @errors, $n, 'The file also listed at line ' . $f->{'line'} . '.', $f->{'line'}, 'The file also listed at line ' . $n . '.';
next;
} ;
my $file = {'filename', $filename, 'mark', $mark // '+', 'comment', $comment, 'line', $n};
$files{$filename} = $file;
push @files, $file;
1
})
|