[RT #67963] make the check for a leading drive letter case insensitive

diff --git a/T1/T1.pm b/T1/T1.pm
index 0ae68be45df6d776830aa0fd4cb69672bbfbf34e..91f19ef7c51689da4befdc718a6016b621bc9152 100644 (file)
--- a/T1/T1.pm
+++ b/T1/T1.pm
@@ -5,7 +5,7 @@ use vars qw(@ISA $VERSION);
 @ISA = qw(Imager::Font);
 
 BEGIN {
-  $VERSION = "1.011";
+  $VERSION = "1.012";
 
   eval {
     require XSLoader;
@@ -54,7 +54,7 @@ sub new {
   # we want to avoid T1Lib's file search mechanism
   unless ($hsh{file} =~ m!^/!
          || $hsh{file} =~ m!^\.\/?/!
-         || $^O =~ /^(MSWin32|cygwin)$/ && $hsh{file} =~ /^[a-z]:/) {
+         || $^O =~ /^(MSWin32|cygwin)$/ && $hsh{file} =~ /^[a-z]:/i) {
     $hsh{file} = './' . $hsh{file};
   }
 
@@ -65,7 +65,7 @@ sub new {
          }
          unless ($hsh{afm} =~ m!^/!
                  || $hsh{afm} =~ m!^\./!
-                 || $^O =~ /^(MSWin32|cygwin)$/ && $hsh{file} =~ /^[a-z]:/) {
+                 || $^O =~ /^(MSWin32|cygwin)$/ && $hsh{file} =~ /^[a-z]:/i) {
            $hsh{file} = './' . $hsh{file};
          }
   } else {