From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 26 Oct 2001 14:53:56 +0000 (+0000)
Subject: fix spurious AutoSplit.t failure under windows
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57e04fb8193e86515c03190f068b95181c660909;p=p5sagit%2Fp5-mst-13.2.git

fix spurious AutoSplit.t failure under windows

p4raw-id: //depot/perl@12693
---

diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t
index 1506e7f..e913f34 100644
--- a/lib/AutoSplit.t
+++ b/lib/AutoSplit.t
@@ -269,7 +269,7 @@ is (&*MOD*::testtesttesttest4_2, "duplicate test 4");
 is (&Just::Another::test5, "another test 5");
 # very messy way to interpolate function into regexp, but it's going to be
 # needed to get : for Mac filespecs
-like (&*MOD*::test6, qr!^*INC**PATHSEP**MOD*.pm \(autosplit into @{[File::Spec->catfile('*DIR*','*MOD*', 'test6.al')]}\):\d+$!);
+like (&*MOD*::test6, qr!^\Q*INC**PATHSEP**MOD*\E\.pm \(autosplit into \Q@{[File::Spec->catfile('*DIR*','*MOD*', 'test6.al')]}\E\):\d+$!);
 ok (Yet::Another::AutoSplit->testtesttesttest4_1 eq "another test 4");
 ################################################################
 ## Name