Fix diagnose::check_permissions for rsync sources

Closes: https://trac.macports.org/ticket/69126
macports · Jan 18, 2024 · f37bf45 · f37bf45
1 parent 87a8c78
commit f37bf45
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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
             }