X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fsplittree.pl;h=3c76daadb1ce994b1471be84ebc9cc9b48c8b41f;hb=410be5dba347e0340059d489e15d034982d73278;hp=9f7f929477b7ad2adb4c6669f9ee3da3126c7d83;hpb=0a753a764065f2260004b6e6975085378b850346;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/splittree.pl b/win32/splittree.pl
index 9f7f929..3c76daa 100644
--- 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);}