case insensitive strip leading number

jberger · Apr 16, 2012 · 2acf7da · 2acf7da
1 parent c642e49
commit 2acf7da
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/MooseX/Types/NumUnit.pm b/lib/MooseX/Types/NumUnit.pm
@@ -143,7 +143,7 @@ sub _convert {
     $requested_unit ||= '';
 
     my $unit = $input;
-    my $val = $1 if $unit =~ s/($number_re)//;
+    my $val = $1 if $unit =~ s/($number_re)//i;
 
     return $val if ($requested_unit eq 'strip_unit');