Ticket #36560: hfscompression2.diff

base/src/registry2.0/portimage.tcl

@@ -419 +419 @@
         cd $startpwd
     }
 
+    if {${macports::os_platform} == "darwin" && ${macports::os_major} >= 10} {
+        ui_debug "Using ditto to apply HFS compression"
+        set unarchivedir $extractdir
+        set extractdir [mkdtemp [::file dirname $location]/mpextractXXXXXXXX]
+        system "ditto --hfsCompress $unarchivedir $extractdir"
+        ::file delete -force $unarchivedir
+    }
+
     return $extractdir
 }