[perl #8599] s/catenate/concatenate/

[perl5.git] / win32 / splittree.pl

diff --git a/win32/splittree.pl b/win32/splittree.pl
index 9f7f929..3c76daa 100644 (file)
--- a/win32/splittree.pl
+++ b/win32/splittree.pl
@@ -8,7 +8,7 @@ if (defined $d) {
        while (defined($_ = $d->read)) {
                next if $_ eq ".";
                next if $_ eq "..";
-               my $entry = "$base/$_";
+               my $entry = "$base\\$_";
                my $entrywithouttop = $entry;
                $entrywithouttop =~ s/^$top//;
                if (-d $entry) {splitthis ($top,$entry,$dest);}