From: Brian Manning <elspicyjack@gmail.com>
Date: Sat, 10 May 2008 04:28:52 +0000 (+0000)
Subject: - added a regex for Win32 for the FilePath subtype; the regex was added to the
X-Git-Tag: 0_55~187
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eaaf77356875c5460f2af1ef008b1c931e5f3588;p=gitmo%2FMoose.git

- 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
--- 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;