diff options
author | Marc Espie <espie@cvs.openbsd.org> | 2010-07-28 12:19:55 +0000 |
---|---|---|
committer | Marc Espie <espie@cvs.openbsd.org> | 2010-07-28 12:19:55 +0000 |
commit | 4b5c08b220fda365756fb5a85b58097462b3aeea (patch) | |
tree | 6a1029d4cdbd337165585b455a8d08b191b710e7 /usr.sbin/pkg_add/pod | |
parent | 7e39d602e21480fd6888a188ddcabe5caa59907c (diff) |
pass state to Ustar objects, use it to display those pesky error and
fatal messages.
zap $opt_x from pkg_mklocated, do things like other commands do.
Diffstat (limited to 'usr.sbin/pkg_add/pod')
-rw-r--r-- | usr.sbin/pkg_add/pod/OpenBSD::Ustar.pod | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/usr.sbin/pkg_add/pod/OpenBSD::Ustar.pod b/usr.sbin/pkg_add/pod/OpenBSD::Ustar.pod index 08df5e3d5db..a17f603472d 100644 --- a/usr.sbin/pkg_add/pod/OpenBSD::Ustar.pod +++ b/usr.sbin/pkg_add/pod/OpenBSD::Ustar.pod @@ -1,4 +1,4 @@ -$OpenBSD: OpenBSD::Ustar.pod,v 1.14 2010/06/30 10:51:04 espie Exp $ +$OpenBSD: OpenBSD::Ustar.pod,v 1.15 2010/07/28 12:19:54 espie Exp $ =head1 NAME @@ -10,7 +10,7 @@ OpenBSD::Ustar - simple access to Ustar C<tar(1)> archives # for reading open(my $in, "<", $arcnameforreading) or die; - $rdarc = OpenBSD::Ustar->new($in, $destdir); + $rdarc = OpenBSD::Ustar->new($in, $state, $destdir); while (my $o = $rdarc->next) { # decide whether we want to extract it, change object attributes $o->create; @@ -19,7 +19,7 @@ OpenBSD::Ustar - simple access to Ustar C<tar(1)> archives # for writing open(my $out, ">", $arcnameforwriting) or die; - $wrarc = OpenBSD::Ustar->new($fh, $destdir); + $wrarc = OpenBSD::Ustar->new($fh, $state, $destdir); # loop my $o = $wrarc->prepare($filename); # tweak some entry parameters @@ -29,9 +29,9 @@ OpenBSD::Ustar - simple access to Ustar C<tar(1)> archives # for copying open(my $in, "<", $arcnameforreading) or die; - $rdarc = OpenBSD::Ustar->new($in, $destdir); + $rdarc = OpenBSD::Ustar->new($in, $state, $destdir); open(my $out, ">", $arcnameforwriting) or die; - $wrarc = OpenBSD::Ustar->new($fh, $destdir); + $wrarc = OpenBSD::Ustar->new($fh, $state, $destdir); while (my $o = $rdarc->next) { $o->copy($wrarc); } @@ -50,6 +50,9 @@ C<read>. C<OpenBSD::Ustar> does not rely on C<seek> or C<rewind> in order to be usable on pipe outputs. For archive writing, the filehandle should support C<print>. +Error messages and fatal errors will be handled through the C<$state> object, +which should conform to C<OpenBSD::State(3p)> (uses C<errsay> and C<fatal>). + Note that read and write support are mutually exclusive, though there is no need to specify the mode used at creation time; it is implicitly provided by the underlying filehandle. |