[svn:parrot] r46791 - trunk/runtime/parrot/library/Archive

[fperrad at svn.parrot.org]

Author: fperrad
Date: Wed May 19 13:04:55 2010
New Revision: 46791
URL: https://trac.parrot.org/parrot/changeset/46791

Log:
[Archive/Tar] preserve file mode

Modified:
   trunk/runtime/parrot/library/Archive/Tar.pir

Modified: trunk/runtime/parrot/library/Archive/Tar.pir
==============================================================================
--- trunk/runtime/parrot/library/Archive/Tar.pir	Wed May 19 13:02:00 2010	(r46790)
+++ trunk/runtime/parrot/library/Archive/Tar.pir	Wed May 19 13:04:55 2010	(r46791)
@@ -70,7 +70,9 @@
     .local string data
     data = $P0.'readall'(path)
     pop_eh
-    .local int uid, gid, mtime
+    .local int mode, uid, gid, mtime
+    mode = stat path, .STAT_PLATFORM_MODE
+    mode &= 0o777
     uid = stat path, .STAT_UID
     gid = stat path, .STAT_GID
     mtime = stat path, .STAT_MODIFYTIME