Update from 0.9.7-stable.
This commit is contained in:
parent
bbab9b61dd
commit
07bb51b6b4
@ -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 = ();
|
||||
|
Loading…
x
Reference in New Issue
Block a user