diff options
Diffstat (limited to 'scripts/Dpkg/Checksums.pm')
| -rw-r--r-- | scripts/Dpkg/Checksums.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/scripts/Dpkg/Checksums.pm b/scripts/Dpkg/Checksums.pm index 07b96da9b..cef5e0a20 100644 --- a/scripts/Dpkg/Checksums.pm +++ b/scripts/Dpkg/Checksums.pm @@ -176,8 +176,8 @@ sub add_from_file { $self->{size}{$key} = $s[7]; foreach my $alg (@alg) { - my @exec = (@{$CHECKSUMS->{$alg}{"program"}}, $file); - my $regex = $CHECKSUMS->{$alg}{"regex"}; + my @exec = (@{$CHECKSUMS->{$alg}{program}}, $file); + my $regex = $CHECKSUMS->{$alg}{regex}; my $output; spawn(exec => \@exec, to_string => \$output); if ($output =~ /^($regex)(\s|$)/m) { @@ -292,9 +292,9 @@ Remove all checksums of the given file. sub remove_file { my ($self, $file) = @_; return unless $self->has_file($file); - delete $self->{'checksums'}{$file}; - delete $self->{'size'}{$file}; - @{$self->{'files'}} = grep { $_ ne $file } $self->get_files(); + delete $self->{checksums}{$file}; + delete $self->{size}{$file}; + @{$self->{files}} = grep { $_ ne $file } $self->get_files(); } =item $checksum = $ck->get_checksum($file, $alg) |