Changeset 3216 for trunk

Timestamp:

Apr 25, 2007, 3:28:09 AM (18 years ago)

Author:

bird

Message:

OS/2 has drive letters dude.

File:

• trunk/essentials/dev-lang/perl/lib/Cwd.pm (modified) (1 diff)

trunk/essentials/dev-lang/perl/lib/Cwd.pm

@@ -508 +508 @@
             return abs_path($link_target);
         }
-        
+        if ($^O eq 'os2' && $dir =~ /^[a-zA-Z]:$/) {
+            return abs_path($dir.'/') . "$file";
+        }
         return $dir ? abs_path($dir) . "/$file" : "/$file";
     }