X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/6a0432ae8e83df713006409cf8ba6b673ad074e5..4780f42f030a63e97503e82d71ccd5d1c323e550:/modules/Tool.pm?ds=inline 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);