equal
deleted
inserted
replaced
215 notice "moved here from $from"; |
215 notice "moved here from $from"; |
216 |
216 |
217 # change the link targets |
217 # change the link targets |
218 |
218 |
219 # find the links pointing to the $target/ |
219 # find the links pointing to the $target/ |
220 foreach my $link (grep { -l && readlink =~ /^$target\// } |
220 foreach my $link (grep { -l && readlink =~ /^\Q$target\E\// } |
221 dir "$fullname/") |
221 dir "$fullname/") |
222 { |
222 { |
223 my $x = readlink($link); |
223 my $x = readlink($link); |
224 my ($t) = ($x =~ /^$target\/(.*)\/$from_base$/); |
224 my ($t) = ($x =~ /^\Q$target\E\/(.*)\/\Q$from_base\E$/); |
225 |
225 |
226 my $y = "$target/$t/$e->{name}"; |
226 my $y = "$target/$t/$e->{name}"; |
227 |
227 |
228 notice "rename $x => $y"; |
228 notice "rename $x => $y"; |
229 rename(readlink($link), "$target/$t/$e->{name}") |
229 rename(readlink($link), "$target/$t/$e->{name}") |