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/Add.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/Add.pm')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/Add.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/Add.pm b/usr.sbin/pkg_add/OpenBSD/Add.pm index 393b1a371c8..9392dbd8f2f 100644 --- a/usr.sbin/pkg_add/OpenBSD/Add.pm +++ b/usr.sbin/pkg_add/OpenBSD/Add.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Add.pm,v 1.16 2004/11/13 10:47:21 espie Exp $ +# $OpenBSD: Add.pm,v 1.17 2004/11/13 11:39:40 espie Exp $ # # Copyright (c) 2003-2004 Marc Espie <espie@openbsd.org> # @@ -329,7 +329,7 @@ sub prepare_to_extract } my $linkname = $file->{linkname}; if (defined $self->{cwd}) { - $linkname = $self->{cwd}.'/'.$linkname; + $linkname = $self->cwd().'/'.$linkname; } if ($self->{link} ne $linkname) { Fatal "Error: archive hl does not match ", $linkname, "!=", @@ -338,7 +338,7 @@ sub prepare_to_extract } $file->{name} = $fullname; - $file->{cwd} = $self->{cwd}; + $file->{cwd} = $self->cwd(); $file->{destdir} = $destdir; # faked installation are VERY weird if (defined $self->{symlink} && $state->{do_faked}) { |