From 7f580f3e69cb8cec6e1c4eda0be8fbf4caad0716 Mon Sep 17 00:00:00 2001 From: pcanterino <> Date: Sun, 13 Feb 2005 10:31:59 +0000 Subject: [PATCH] Windows drive letters are case-insensitive! --- modules/Tool.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/Tool.pm b/modules/Tool.pm index acc4722..23770a1 100644 --- a/modules/Tool.pm +++ b/modules/Tool.pm @@ -6,7 +6,7 @@ package Tool; # Some shared sub routines # # Author: Patrick Canterino -# Last modified: 2005-02-12 +# Last modified: 2005-02-13 # use strict; @@ -223,7 +223,7 @@ sub file_name($) my $path = shift; $path =~ tr!\\!/!; - unless($path =~ m!^/+$! || ($^O eq 'MSWin32' && $path =~ m!^[a-z]:/+$!)) + unless($path =~ m!^/+$! || ($^O eq 'MSWin32' && $path =~ m!^[a-z]:/+$!i)) { $path =~ s!/+$!!; $path = substr($path,rindex($path,'/')+1); @@ -284,7 +284,7 @@ sub upper_path($) my $path = shift; $path =~ tr!\\!/!; - unless($path =~ m!^/+$! || ($^O eq 'MSWin32' && $path =~ m!^[a-z]:/+$!)) + unless($path =~ m!^/+$! || ($^O eq 'MSWin32' && $path =~ m!^[a-z]:/+$!i)) { $path =~ s!/+$!!; $path = substr($path,0,rindex($path,'/')+1); -- 2.34.1