Update from 0.9.7-stable.

This commit is contained in:
Dr. Stephen Henson 2006-02-09 12:29:21 +00:00
parent bbab9b61dd
commit 07bb51b6b4

View File

@ -15,12 +15,14 @@
# Apart from this, this script should be able to handle even the most
# pathological cases.
use Cwd;
my $from = shift;
my @files = @ARGV;
my @from_path = split(/[\\\/]/, $from);
my $pwd = `pwd`;
chop($pwd);
my $pwd = getcwd();
chomp($pwd);
my @pwd_path = split(/[\\\/]/, $pwd);
my @to_path = ();