| 1 | --- wml_frontend/wml.src.orig 2011-04-23 06:39:02.000000000 +0200 |
|---|
| 2 | +++ wml_frontend/wml.src 2011-04-23 06:41:02.000000000 +0200 |
|---|
| 3 | @@ -49,7 +49,7 @@ |
|---|
| 4 | } |
|---|
| 5 | |
|---|
| 6 | use Getopt::Long 2.13; |
|---|
| 7 | -use File::PathConvert; |
|---|
| 8 | +use File::Spec; |
|---|
| 9 | use IO::File 1.06; |
|---|
| 10 | use Term::ReadKey; |
|---|
| 11 | use Cwd; |
|---|
| 12 | @@ -338,7 +338,7 @@ |
|---|
| 13 | @opt_I_NEW = @opt_I_OLD; |
|---|
| 14 | |
|---|
| 15 | # adjust -D options |
|---|
| 16 | - $reldir = File::PathConvert::abs2rel("$dir", "$src"); |
|---|
| 17 | + $reldir = File::Spec->abs2rel("$dir", "$src"); |
|---|
| 18 | $reldir = "." if $reldir eq ''; |
|---|
| 19 | foreach $d (@opt_D) { |
|---|
| 20 | if ($d =~ m|^([A-Za-z0-9_]+)~(.+)$|) { |
|---|
| 21 | @@ -363,7 +363,7 @@ |
|---|
| 22 | } |
|---|
| 23 | |
|---|
| 24 | # adjust -I options |
|---|
| 25 | - $reldir = File::PathConvert::abs2rel("$dir"); |
|---|
| 26 | + $reldir = File::Spec->abs2rel("$dir"); |
|---|
| 27 | $reldir = "." if $reldir eq ''; |
|---|
| 28 | foreach $path (@opt_I) { |
|---|
| 29 | if ($path !~ m|^/|) { |
|---|
| 30 | @@ -477,7 +477,7 @@ |
|---|
| 31 | $reldir = $src; |
|---|
| 32 | $reldir =~ s,(:?/|^)[^/]+$,,; |
|---|
| 33 | ($cwd = Cwd::cwd) =~ s|/$||; |
|---|
| 34 | - $reldir = File::PathConvert::abs2rel($cwd, "$cwd/$reldir"); |
|---|
| 35 | + $reldir = File::Spec->abs2rel($cwd, "$cwd/$reldir"); |
|---|
| 36 | $reldir = "." if $reldir eq ''; |
|---|
| 37 | } |
|---|
| 38 | else { |
|---|
| 39 | @@ -958,7 +958,7 @@ |
|---|
| 40 | if ($src =~ m|/|) { |
|---|
| 41 | $src_dirname = $src; |
|---|
| 42 | $src_dirname =~ s|/+[^/]*$||; |
|---|
| 43 | - $src_dirname = File::PathConvert::realpath("$src_dirname"); |
|---|
| 44 | + $src_dirname = Cwd::abs_path("$src_dirname"); |
|---|
| 45 | } |
|---|
| 46 | else { |
|---|
| 47 | $src_dirname = $cwd; |
|---|
