diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2004-11-13 11:39:41 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2004-11-13 11:39:41 +0000 |
| commit | c653ebfbb06a735a5a647944357f87313acff6ef (patch) | |
| tree | 10533d4319261b6e8078da03a4469d7b704f1081 /usr.sbin/pkg_add/OpenBSD/PackingElement.pm | |
| parent | 36ac7b5cf3b1bd6d33b89256c4af57daddbf5d6c (diff) | |
cwd() function so that further changes to internal storage won't matter
that much.
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/PackingElement.pm')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PackingElement.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/PackingElement.pm b/usr.sbin/pkg_add/OpenBSD/PackingElement.pm index 4c580d232ba..4a23f816f6e 100644 --- a/usr.sbin/pkg_add/OpenBSD/PackingElement.pm +++ b/usr.sbin/pkg_add/OpenBSD/PackingElement.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: PackingElement.pm,v 1.68 2004/11/12 23:26:41 espie Exp $ +# $OpenBSD: PackingElement.pm,v 1.69 2004/11/13 11:39:40 espie Exp $ # # Copyright (c) 2003-2004 Marc Espie <espie@openbsd.org> # @@ -150,6 +150,11 @@ sub new { die "Can't create annotation objects" } package OpenBSD::PackingElement::Object; our @ISA=qw(OpenBSD::PackingElement); +sub cwd +{ + return ${$_[0]->{cwd}}; +} + sub compute_fullname { my ($self, $state, $absolute_okay) = @_; @@ -167,8 +172,8 @@ sub fullname($) { my $self = $_[0]; my $fullname = $self->{name}; - if ($fullname !~ m|^/| && ${$self->{cwd}} ne '.') { - $fullname = ${$self->{cwd}}."/".$fullname; + if ($fullname !~ m|^/| && $self->cwd() ne '.') { + $fullname = $self->cwd()."/".$fullname; } return $fullname; } |