diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2011-06-27 12:17:39 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2011-06-27 12:17:39 +0000 |
| commit | 605532655960c1a74b9fd5f9facf75593f8d8dfc (patch) | |
| tree | 9b20692f76d58ee69b3a2d062c64946a3805f9a0 /usr.sbin/pkg_add/OpenBSD/PkgAdd.pm | |
| parent | a633571e8e743a2f04fcb05f115da2e7d643d482 (diff) | |
make things slightly more readable
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/PkgAdd.pm')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PkgAdd.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/PkgAdd.pm b/usr.sbin/pkg_add/OpenBSD/PkgAdd.pm index 6a2345a5459..2af03232f2a 100644 --- a/usr.sbin/pkg_add/OpenBSD/PkgAdd.pm +++ b/usr.sbin/pkg_add/OpenBSD/PkgAdd.pm @@ -1,7 +1,7 @@ #! /usr/bin/perl # ex:ts=8 sw=4: -# $OpenBSD: PkgAdd.pm,v 1.22 2011/06/20 09:46:23 espie Exp $ +# $OpenBSD: PkgAdd.pm,v 1.23 2011/06/27 12:17:38 espie Exp $ # # Copyright (c) 2003-2010 Marc Espie <espie@openbsd.org> # @@ -76,7 +76,7 @@ sub hash_files my ($self, $sha, $state) = @_; return if $self->{link} or $self->{symlink} or $self->{nochecksum}; if (defined $self->{d}) { - $sha->{${$self->{d}}} = $self; + $sha->{$self->{d}->key} = $self; } } @@ -84,8 +84,8 @@ sub tie_files { my ($self, $sha, $state) = @_; return if $self->{link} or $self->{symlink} or $self->{nochecksum}; - if (defined $sha->{${$self->{d}}}) { - my $tied = $sha->{${$self->{d}}}; + if (defined $sha->{$self->{d}->key}) { + my $tied = $sha->{$self->{d}->key}; # don't tie if there's a problem with the file return unless -f $tied->realname($state); # and do a sanity check that this file wasn't altered |