Otherwise we can get:
Use of uninitialized value $_ in pattern match (m//) at /usr/bin/dgit
line 4364.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Usually the user is a maintainer using split brain, and we should rely
on their own gbp configuration to specify the right check.
Closes:#841100.
+ * split brain cache: Fix a wrong implicit reference to $_.
+ Closes:#841383.
--
my $srcshash = Digest::SHA->new(256);
my %sfs = ( %INC, '$0(dgit)' => $0 );
foreach my $sfk (sort keys %sfs) {
- next unless m/^\$0\b/ || m{^Debian/Dgit\b};
+ next unless $sfk =~ m/^\$0\b/ || $sfk =~ m{^Debian/Dgit\b};
$srcshash->add($sfk," ");
$srcshash->add(hashfile($sfs{$sfk}));
$srcshash->add("\n");