Ticket #15395: patch-portfetch.tcl.diff

src/port1.0/portfetch.tcl

@@ -624 +624 @@
 
 # Initialize fetch target and call checkfiles.
 proc fetch_init {args} {
-    global distfiles distname distpath all_dist_files dist_subdir fetch.type fetch_init_done
+    global distfiles distname distpath all_dist_files dist_subdir fetch.type fetch_init_done categories
     
     if {[info exists distpath] && [info exists dist_subdir] && ![info exists fetch_init_done]} {
-            set distpath ${distpath}/${dist_subdir}
-            set fetch_init_done yes
+        set primary_category [lindex $categories 0]
+        set distpath ${distpath}/${primary_category}/${dist_subdir}
+        set fetch_init_done yes
     }
     checkfiles
 }