[Bast-commits] r9808 - Class-Accessor-Grouped/trunk/lib/Class/Accessor

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-12-08 09:51:14 +0000 (Wed, 08 Dec 2010)
New Revision: 9808

Modified:
   Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
Log:
Workaround for Win32/AS retardation ($0 containing \, lolwut?!)

Modified: Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
===================================================================
--- Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-12-08 09:49:27 UTC (rev 9807)
+++ Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-12-08 09:51:14 UTC (rev 9808)
@@ -546,7 +546,7 @@
   *__CAG_TRACK_UNDEFER_FAIL = (
     $INC{'Test/Builder.pm'} || $INC{'Test/Builder2.pm'}
       and
-    $0 =~ m|^ x?t / .+ \.t $|x
+    $0 =~ m|^ x?t [\/\\] .+ \.t $|x
   ) ? sub () { 1 }
     : sub () { 0 }
   ;