Changeset 18961

Timestamp:

06/18/06 21:27:41 (2 years ago)

Author:

patrick

Message:

Preserve time stamps and such when copying files during installation.

Files:

• juggler/trunk/release/scripts/InstallOps.pm (modified) (1 diff)
• juggler/trunk/release/scripts/install-dir.pl (modified) (2 diffs)

juggler/trunk/release/scripts/InstallOps.pm

@@ -249 +249 @@
-   else
-   {
+      my @stats = (stat("$src_file"))[8,9];
-      copy("$src_file", "$inst_dir") or warn "copy: $!\n";
+      utime(@stats, "$inst_dir/$src_file");
-   }
-

juggler/trunk/release/scripts/install-dir.pl

@@ -170 +170 @@
-
-         # Make a working copy of the input file to be safe.
+         my @stats = (stat("$curfile"))[8,9];
-         copy("$curfile", "$workfile") unless "$curfile" eq "$workfile";
-
@@ -185 +186 @@
-               or warn "WARNING: Could not delete $workfile: $!";
-         }
+
+         # Apply the saved attributes of $curfile to $filename.
+         utime(@stats, "$filename");
-
-         installFile("$filename", $uid, $gid, "$mode", "$dest_dir",