| … | |
… | |
| 220 | |
220 | |
| 221 | sub archsOut { |
221 | sub archsOut { |
| 222 | local($dir) = shift; |
222 | local($dir) = shift; |
| 223 | |
223 | |
| 224 | foreach $arch (@archs) { |
224 | foreach $arch (@archs) { |
| 225 | # Assume the filename $arch begins with $dir. Assign the first path |
225 | # Assume the filename $arch begins with $dir. Assign all path name |
| 226 | # name component after $dir to $pathto. |
226 | # components after $dir to $pathto. |
| 227 | if($arch =~ /^\Q$dir\E\/([^\/]+)\/.*[.]arc$/) { |
227 | if($arch =~ /^\Q$dir\E\/(.*)\/[^\/]*[.]arc$/) { |
| 228 | $pathto = $1; |
228 | $pathto = $1; |
| 229 | } else { |
229 | } else { |
| 230 | &warn("cannot determine editor_folder from arch '$arch'"); |
230 | &warn("cannot determine editor_folder from arch '$arch'"); |
| 231 | $pathto = ""; |
231 | $pathto = ""; |
| 232 | } |
232 | } |
