- added a regex for Win32 for the FilePath subtype; the regex was added to the

  'where' clause and OR'ed with the existing regex

diff --git a/t/100_bugs/011_DEMOLISH_eats_exceptions.t b/t/100_bugs/011_DEMOLISH_eats_exceptions.t
index 17465f2..10262f6 100644 (file)
--- a/t/100_bugs/011_DEMOLISH_eats_exceptions.t
+++ b/t/100_bugs/011_DEMOLISH_eats_exceptions.t
@@ -14,8 +14,8 @@ BEGIN {
 
 subtype 'FilePath'
     => as 'Str'
-    => where { $_ =~ m#^(/[a-zA-Z0-9_.-]+)+$#; };
-
+    => where { $_ =~ m#^(/[a-zA-Z0-9_.-]+)+$#
+                || $_ =~ m#^([c-zC-Z]:/[a-zA-Z0-9_.-]+)# };
 {
     package Baz;
     use Moose;