From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Sat, 3 Oct 2009 07:35:27 +0000 (+0200)
Subject: Adapt test to accept local uncommitted changes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=085fe5e3f25d1e01aa43f2b4f57652dea9b3ab4b;p=p5sagit%2Fp5-mst-13.2.git

Adapt test to accept local uncommitted changes
---

diff --git a/t/run/switches.t b/t/run/switches.t
index 57998dd..8e076d4 100644
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -268,7 +268,7 @@ SWTESTPM
     # DG/UX comes to mind. Maybe we should remove these special cases?
     my $v = sprintf "%vd", $^V;
     like( runperl( switches => ['-v'] ),
-	  qr/This is perl, v$v(?:[-\w]+| \([^)]+\))? built for \Q$Config{archname}\E.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
+	  qr/This is perl, v\Q$v\E(?:[-*\w]+| \([^)]+\))? built for \Q$Config{archname}\E.+Copyright.+Larry Wall.+Artistic License.+GNU General Public License/s,
           '-v looks okay' );
 
 }