From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 8 Dec 2010 09:51:14 +0000 (+0000)
Subject: Workaround for Win32/AS retardation ($0 containing \, lolwut?!)
X-Git-Tag: v0.10001~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FClass-Accessor-Grouped.git;a=commitdiff_plain;h=f0f2423c0a64e233d462cef61d87e9aa6c4eab74

Workaround for Win32/AS retardation ($0 containing \, lolwut?!)
---

diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index b0b75ee..c760707 100644
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -546,7 +546,7 @@ BEGIN {
   *__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 }
   ;