[RT #67963] make the check for a leading drive letter case insensitive
authorTony Cook <tony@develop-help.com>
Mon, 9 May 2011 08:57:25 +0000 (18:57 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 9 May 2011 08:57:25 +0000 (18:57 +1000)
T1/T1.pm

index 0ae68be..91f19ef 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 {