[36773] trunk/base/src/package1.0/portarchive.tcl

[afb at macports.org]

Revision: 36773
          http://trac.macosforge.org/projects/macports/changeset/36773
Author:   afb at macports.org
Date:     2008-05-14 04:49:20 -0700 (Wed, 14 May 2008)

Log Message:
-----------
include epoch in archive

Modified Paths:
--------------
    trunk/base/src/package1.0/portarchive.tcl

Modified: trunk/base/src/package1.0/portarchive.tcl
===================================================================
--- trunk/base/src/package1.0/portarchive.tcl	2008-05-14 11:40:05 UTC (rev 36772)
+++ trunk/base/src/package1.0/portarchive.tcl	2008-05-14 11:49:20 UTC (rev 36773)
@@ -239,7 +239,7 @@
 proc archive_main {args} {
 	global UI_PREFIX variations
 	global workpath destpath portpath ports_force
-	global portname portversion portrevision portvariants
+	global portname portepoch portversion portrevision portvariants
 	global archive.fulldestpath archive.type archive.file archive.path
 
 	# Create archive destination path (if needed)
@@ -286,6 +286,7 @@
 	set fd [open [file join $destpath "+CONTENTS"] w]
 	puts $fd "@name ${portname}-${portversion}_${portrevision}${portvariants}"
 	puts $fd "@portname ${portname}"
+	puts $fd "@portepoch ${portepoch}"
 	puts $fd "@portversion ${portversion}"
 	puts $fd "@portrevision ${portrevision}"
 	set vlist [lsort -ascii [array names variations]]

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080514/6a5208bc/attachment.html