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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Wed May 19 13:09:23 2010
New Revision: 46792
URL: https://trac.parrot.org/parrot/changeset/46792

Log:
[Archive/Tar] fix r46791, fperrad--

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:04:55 2010	(r46791)
+++ trunk/runtime/parrot/library/Archive/Tar.pir	Wed May 19 13:09:23 2010	(r46792)
@@ -76,7 +76,7 @@
     uid = stat path, .STAT_UID
     gid = stat path, .STAT_GID
     mtime = stat path, .STAT_MODIFYTIME
-    .tailcall new_from_data(path, data, uid :named('uid'), gid :named('gid'), mtime :named('mtime'))
+    .tailcall new_from_data(path, data, mode :named('mode'), uid :named('uid'), gid :named('gid'), mtime :named('mtime'))
   _handler:
     null $P0
     .return ($P0)