stamp files and directories.

okay sturm@

1 files changed, 3 insertions, 2 deletions

diff --git a/usr.sbin/pkg_add/OpenBSD/Ustar.pm b/usr.sbin/pkg_add/OpenBSD/Ustar.pm
index 38b9f862cd0..0d021992913 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.2 2003/10/31 09:30:10 espie Exp $
+# $OpenBSD: Ustar.pm,v 1.3 2003/12/10 17:45:11 espie Exp $
 #
 # Copyright (c) 2002 Marc Espie.
 # 
@@ -188,6 +188,7 @@ sub set_modes
 	my $self = shift;
 	chown $self->{uid}, $self->{gid}, $self->{name};
 	chmod $self->{mode}, $self->{name};
+	utime $self->{mtime}, $self->{mtime}, $self->{name};
 }
 
 sub make_basedir
@@ -259,7 +260,6 @@ sub create
 		print "Can't write to ", $self->{name}, "\n";
 		return;
 	}
-	$self->SUPER::set_modes();
 	my $buffer;
 	my $toread = $self->{size};
 	while ($toread > 0) {
@@ -271,6 +271,7 @@ sub create
 		$toread -= $maxread;
 	}
 	$out->close();
+	$self->SUPER::set_modes();
 }
 
 sub isFile() { 1 }