From 1ba775e5d6d04836ba897229e0ee65610c393937 Mon Sep 17 00:00:00 2001
From: Marc Espie <espie@cvs.openbsd.org>
Date: Fri, 31 Oct 2003 09:30:11 +0000
Subject: Fix typo (ouch) and logic order (chown before chmod) Still a very
 good idea to mark setXid and special owners in packing-lists (as make
 update-plist does anyways...)

---
 usr.sbin/pkg_add/OpenBSD/Ustar.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/usr.sbin/pkg_add/OpenBSD/Ustar.pm b/usr.sbin/pkg_add/OpenBSD/Ustar.pm
index 59c0365e946..38b9f862cd0 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.1 2003/10/16 17:43:34 espie Exp $
+# $OpenBSD: Ustar.pm,v 1.2 2003/10/31 09:30:10 espie Exp $
 #
 # Copyright (c) 2002 Marc Espie.
 # 
@@ -142,7 +142,7 @@ sub next
     $uid = oct($uid);
     $gid = oct($gid);
     $uid = name2uid($uname, $uid);
-    $gid = name2gid($uname, $gid);
+    $gid = name2gid($gname, $gid);
     $mtime = oct($mtime);
     unless ($prefix =~ m/^\0/) {
 	$prefix =~ s/\0*$//;
@@ -186,8 +186,8 @@ package OpenBSD::Ustar::Object;
 sub set_modes
 {
 	my $self = shift;
-	chmod $self->{mode}, $self->{name};
 	chown $self->{uid}, $self->{gid}, $self->{name};
+	chmod $self->{mode}, $self->{name};
 }
 
 sub make_basedir
-- 
cgit v1.2.3