[101069] trunk/base/src/package1.0/portpkg.tcl

[blair at macports.org]

Revision: 101069
          https://trac.macports.org/changeset/101069
Author:   blair at macports.org
Date:     2013-01-03 15:48:29 -0800 (Thu, 03 Jan 2013)
Log Message:
-----------
portpkg::write_sizes_file: remove unused portname and portversion arguments.

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

Modified: trunk/base/src/package1.0/portpkg.tcl
===================================================================
--- trunk/base/src/package1.0/portpkg.tcl	2013-01-03 23:48:26 UTC (rev 101068)
+++ trunk/base/src/package1.0/portpkg.tcl	2013-01-03 23:48:29 UTC (rev 101069)
@@ -189,7 +189,7 @@
         system "cd ${destpath} && [findBinary pax $portutil::autoconf::pax_path] -x cpio -w -z . > ${pkgpath}/Contents/Archive.pax.gz"
 
         write_description_plist ${pkgpath}/Contents/Resources/Description.plist $portname $portversion $description
-        write_sizes_file ${pkgpath}/Contents/Resources/Archive.sizes ${portname} ${portversion} ${pkgpath} ${destpath}
+        write_sizes_file ${pkgpath}/Contents/Resources/Archive.sizes ${pkgpath} ${destpath}
 
     }
 
@@ -324,7 +324,7 @@
     close $fd
 }
 
-proc portpkg::write_sizes_file {sizesfile portname portversion pkgpath destpath} {
+proc portpkg::write_sizes_file {sizesfile pkgpath destpath} {
 
     if {[catch {set numFiles [llength [split [exec [findBinary lsbom $portutil::autoconf::lsbom_path] -s ${pkgpath}/Contents/Archive.bom] "\n"]]} result]} {
         return -code error [format [msgcat::mc "Reading package bom failed: %s"] $result]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130103/4049fe02/attachment.html>