Permalink
Browse files

Work rename directive that includes path separator '/'

  • Loading branch information...
1 parent 623ee89 commit cf8a5dfcc4b20a1ba3f7e1e81f446b78e18e4a5f t-momose committed Oct 13, 2005
Showing with 5 additions and 2 deletions.
  1. +5 −2 prepare.pl
View
@@ -1,6 +1,6 @@
#
# perl prepare.pl kame <osname>
-# $KAME: prepare.pl,v 1.14 2000/07/26 08:11:33 itojun Exp $
+# $KAME: prepare.pl,v 1.15 2005/10/13 02:45:17 t-momose Exp $
#
$debug = 1;
@@ -72,12 +72,15 @@ sub dig {
if ($rename{$i}) {
$j = $rename{$i};
+ for ($pos = 0; ($pos = index($j, "/", $pos)) != -1; $pos++) {
+ $src = "../" . $src;
+ }
} else {
$j = $i;
}
if (-d "$curdir/$i" && !$linkdir{$i}) {
- &dig("$curdir/$i", "../$src/$i", "$dst/$i");
+ &dig("$curdir/$i", "../$src/$i", "$dst/$j");
} else {
if (! -d "$dst") {
print "mkdir -p $dst\n" if $debug;

0 comments on commit cf8a5df

Please sign in to comment.