diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-20 15:05:59 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-20 15:06:05 +0100 |
commit | 63f314691709644c0fb60c9ae4942f75714e4255 (patch) | |
tree | 5236eb874c198e8c168621b11e95d3e944d38ce2 /dgit | |
parent | 25d99544a7f5a83e0b2fd2fa046682865271d7c3 (diff) |
split brain cache: Fix a wrong implicit reference to $_. Closes:#841383.
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>
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4363,7 +4363,7 @@ sub quilt_check_splitbrain_cache ($$) { 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"); |