diff options
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/Ustar.pm')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/Ustar.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/Ustar.pm b/usr.sbin/pkg_add/OpenBSD/Ustar.pm index 83609e2d459..b0329d4357e 100644 --- a/usr.sbin/pkg_add/OpenBSD/Ustar.pm +++ b/usr.sbin/pkg_add/OpenBSD/Ustar.pm @@ -1,4 +1,4 @@ -# $OpenBSD: Ustar.pm,v 1.6 2004/01/29 13:06:39 espie Exp $ +# $OpenBSD: Ustar.pm,v 1.7 2004/02/15 15:33:59 espie Exp $ # # Copyright (c) 2002 Marc Espie. # @@ -218,7 +218,7 @@ sub create $linkname=$self->{cwd}.'/'.$linkname; } link $self->{destdir}.$linkname, $self->{destdir}.$self->{name} or - die "Can't link $self->{destdir}.$linkname to $self->{destdir}.$self->{name}: $!"; + die "Can't link $self->{destdir}$linkname to $self->{destdir}$self->{name}: $!"; } sub isLink() { 1 } @@ -232,7 +232,7 @@ sub create my $self = shift; $self->make_basedir($self->{name}); symlink $self->{linkname}, $self->{destdir}.$self->{name} or - die "Can't symlink $self->{linkname} to $self->{destdir}.$self->{name}: $!"; + die "Can't symlink $self->{linkname} to $self->{destdir}$self->{name}: $!"; } sub isLink() { 1 } @@ -247,7 +247,7 @@ sub create $self->make_basedir($self->{name}); open (my $out, '>', $self->{destdir}.$self->{name}); if (!defined $out) { - die "Can't write to $self->{destdir}.$self->{name}: $!"; + die "Can't write to $self->{destdir}$self->{name}: $!"; } my $buffer; my $toread = $self->{size}; @@ -259,12 +259,12 @@ sub create } $self->{archive}->{swallow} -= $maxread; unless (print $out $buffer) { - die "Error writing to $self->{destdir}.$self->{name}: $!"; + die "Error writing to $self->{destdir}$self->{name}: $!"; } $toread -= $maxread; } - $out->close() or die "Error closing $self->{destdir}.$self->{name}: $!"; + $out->close() or die "Error closing $self->{destdir}$self->{name}: $!"; $self->SUPER::set_modes(); } |