| version 1.17 | | version 1.18 |
|---|
| | |
| local($dir) = shift; | | local($dir) = shift; |
| | | |
| foreach $arch (@archs) { | | foreach $arch (@archs) { |
| # Assume the filename $arch begins with $dir. Assign the first path | | # Assume the filename $arch begins with $dir. Assign all path name |
| # name component after $dir to $pathto. | | # components after $dir to $pathto. |
| if($arch =~ /^\Q$dir\E\/([^\/]+)\/.*[.]arc$/) { | | if($arch =~ /^\Q$dir\E\/(.*)\/[^\/]*[.]arc$/) { |
| $pathto = $1; | | $pathto = $1; |
| } else { | | } else { |
| &warn("cannot determine editor_folder from arch '$arch'"); | | &warn("cannot determine editor_folder from arch '$arch'"); |