@@ -1859,7 +1859,8 @@ contains |
| 1859 | 1859 | ! Execute file/directory rename |
| 1860 | 1860 | character(len=*), intent(in) :: old_path, new_name |
| 1861 | 1861 | character(len=1024) :: dirname, new_path, command, old_path_lower, new_path_lower |
| 1862 | | - integer :: status, last_slash |
| 1862 | + character(len=1024) :: old_basename, new_basename |
| 1863 | + integer :: status, last_slash, old_last_slash, new_last_slash |
| 1863 | 1864 | logical :: file_exists, case_only_change |
| 1864 | 1865 | |
| 1865 | 1866 | ! Validate new name |
@@ -1885,12 +1886,40 @@ contains |
| 1885 | 1886 | end if |
| 1886 | 1887 | |
| 1887 | 1888 | ! Check if this is a case-only change (for case-insensitive filesystems like macOS) |
| 1888 | | - old_path_lower = old_path |
| 1889 | | - new_path_lower = new_path |
| 1889 | + ! Extract just the basename (filename) for comparison to avoid path prefix issues |
| 1890 | + old_last_slash = index(old_path, '/', back=.true.) |
| 1891 | + new_last_slash = index(new_path, '/', back=.true.) |
| 1892 | + |
| 1893 | + if (old_last_slash > 0) then |
| 1894 | + old_basename = old_path(old_last_slash+1:) |
| 1895 | + else |
| 1896 | + old_basename = old_path |
| 1897 | + end if |
| 1898 | + |
| 1899 | + if (new_last_slash > 0) then |
| 1900 | + new_basename = new_path(new_last_slash+1:) |
| 1901 | + else |
| 1902 | + new_basename = new_path |
| 1903 | + end if |
| 1904 | + |
| 1905 | + ! Now compare the basenames in lowercase |
| 1906 | + old_path_lower = old_basename |
| 1907 | + new_path_lower = new_basename |
| 1890 | 1908 | call to_lowercase(old_path_lower) |
| 1891 | 1909 | call to_lowercase(new_path_lower) |
| 1892 | 1910 | case_only_change = (trim(old_path_lower) == trim(new_path_lower)) |
| 1893 | 1911 | |
| 1912 | + ! Debug logging |
| 1913 | + open(99, file='/tmp/fuss_debug.log', position='append') |
| 1914 | + write(99, '(A,A)') 'RENAME: old_path = ', trim(old_path) |
| 1915 | + write(99, '(A,A)') 'RENAME: new_path = ', trim(new_path) |
| 1916 | + write(99, '(A,A)') 'RENAME: old_basename = ', trim(old_basename) |
| 1917 | + write(99, '(A,A)') 'RENAME: new_basename = ', trim(new_basename) |
| 1918 | + write(99, '(A,A)') 'RENAME: old_path_lower = ', trim(old_path_lower) |
| 1919 | + write(99, '(A,A)') 'RENAME: new_path_lower = ', trim(new_path_lower) |
| 1920 | + write(99, '(A,L)') 'RENAME: case_only_change = ', case_only_change |
| 1921 | + close(99) |
| 1922 | + |
| 1894 | 1923 | ! Check if new path already exists (skip check for case-only changes) |
| 1895 | 1924 | if (.not. case_only_change) then |
| 1896 | 1925 | inquire(file=trim(new_path), exist=file_exists) |
