--- perl5.004_01.os2/lib/File/Path.pm	Thu Apr 24 08:39:44 1997
+++ perl5.004_01/lib/File/Path.pm	Mon Jun 16 15:58:02 1997
@@ -124,6 +124,7 @@ sub mkpath {
     $paths = [$paths] unless ref $paths;
     my(@created,$path);
     foreach $path (@$paths) {
+	$path .= '/' if $^O eq 'os2' and $path =~ /^\w:$/; # bug in CRT 
 	next if -d $path;
 	# Logic wants Unix paths, so go with the flow.
 	$path = VMS::Filespec::unixify($path) if $Is_VMS;
