From d33a0a024469efbb70905886a417343da7682685 Mon Sep 17 00:00:00 2001
From: Joshua Root <jmr@macports.org>
Date: Thu, 18 Jan 2024 18:11:14 +1100
Subject: [PATCH] Fix diagnose::check_permissions for rsync sources

Closes: https://trac.macports.org/ticket/69126
(cherry picked from commit f37bf45de88fc84d1ed4cbb9b53869df577d3e4d)
---
 src/macports1.0/diagnose.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/macports1.0/diagnose.tcl b/src/macports1.0/diagnose.tcl
index a981d0aba3..134e73a3dc 100644
--- a/src/macports1.0/diagnose.tcl
+++ b/src/macports1.0/diagnose.tcl
@@ -799,7 +799,7 @@ namespace eval diagnose {
         # don't complain about writable parent dirs of prefix or sources
         set check_paths [list [file dirname $macports::prefix]]
         foreach source $macports::sources {
-            set sourcedir [macports::getportdir [lindex $source 0]]
+            set sourcedir [file dirname [macports::getindex [lindex $source 0]]]
             if {$sourcedir ni $check_paths} {
                 lappend check_paths $sourcedir
             }