From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 13 Feb 2016 17:27:11 +0000 (+0100)
Subject: Eeeeep /x doesn't affect the insides of [...]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6bbdf31da39a144b271e7b82f2345e4b5a67e5af;p=dbsrgits%2FDBIx-Class.git

Eeeeep /x doesn't affect the insides of [...]
---

diff --git a/t/lib/DBICTest/RunMode.pm b/t/lib/DBICTest/RunMode.pm
index 114d79a..93f917c 100644
--- a/t/lib/DBICTest/RunMode.pm
+++ b/t/lib/DBICTest/RunMode.pm
@@ -83,7 +83,7 @@ sub tmpdir {
     my $reason_dir_unusable;
 
     my @parts = File::Spec->splitdir($dir);
-    if (@parts == 2 and $parts[1] =~ /^ [ \\ \/ ]? $/x ) {
+    if (@parts == 2 and $parts[1] =~ /^ [\/\\]? $/x ) {
       $reason_dir_unusable =
         'File::Spec->tmpdir returned a root directory instead of a designated '
       . 'tempdir (possibly https://rt.cpan.org/Ticket/Display.html?id=76663)';