diff options
| author |   espie <espie@openbsd.org> | 2004-01-27 00:04:36 +0000 |
|---|---|---|
| committer | espie <espie@openbsd.org> | 2004-01-27 00:04:36 +0000 |
| commit | 28372e2334c145d0893cc7406dd1495e5be419b3 (patch) | |
| tree | cfdfda93a084cda52d66cc6b966684cfebcc8d0d | |
| parent | Major overhaul of biosboot and installboot, using EDD (LBA) reads if (diff) | |
| download | wireguard-openbsd-28372e2334c145d0893cc7406dd1495e5be419b3.tar.xz wireguard-openbsd-28372e2334c145d0893cc7406dd1495e5be419b3.zip | |
put $! in die messages.
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/RequiredBy.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm b/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm index bd2226ab72d..81fbaa380ec 100644 --- a/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm +++ b/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: RequiredBy.pm,v 1.1.1.1 2003/10/16 17:43:34 espie Exp $ +# $OpenBSD: RequiredBy.pm,v 1.2 2004/01/27 00:04:36 espie Exp $ # # Copyright (c) 2003 Marc Espie. # @@ -43,7 +43,7 @@ sub list($) my $l = []; return $l unless -f $$self; open(my $fh, '<', $$self) or - die "Problem opening required list: $$self\n"; + die "Problem opening required list: $$self: $!"; local $_; while(<$fh>) { chomp $_; @@ -59,7 +59,7 @@ sub delete { my ($self, $pkgname) = @_; my @lines = grep { $_ ne $pkgname } @{$self->list()}; - unlink($$self) or die "Can't erase $$self"; + unlink($$self) or die "Can't erase $$self: $!"; if (@lines > 0) { $self->add(@lines); } @@ -69,7 +69,7 @@ sub add { my ($self, @pkgnames) = @_; open(my $fh, '>>', $$self) or - die "Can't add dependencies to $$self"; + die "Can't add dependencies to $$self: $!"; print $fh join("\n", @pkgnames), "\n"; close($fh); } |