From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 20 Dec 2005 19:37:26 +0000 (+0000)
Subject: Fix typos in regular expressions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bcc798661c94fefec5a89ff3321c5a519313444;p=p5sagit%2Fp5-mst-13.2.git

Fix typos in regular expressions

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

diff --git a/ext/POSIX/t/time.t b/ext/POSIX/t/time.t
index c09a375..103a161 100644
--- a/ext/POSIX/t/time.t
+++ b/ext/POSIX/t/time.t
@@ -21,10 +21,10 @@ SKIP: {
           $^O eq "MSWin32" || $^O eq "dos" || $^O eq "interix";
     tzset();
     my @tzname = tzname();
-    like($tzname[0], qr/[GMT|UTC]/i, "tzset() to GMT/UTC");
+    like($tzname[0], qr/(GMT|UTC)/i, "tzset() to GMT/UTC");
     SKIP: {
         skip "Mac OS X/Darwin doesn't handle this", 1 if $^O =~ /darwin/i;
-        like($tzname[1], qr/[GMT|UTC]/i, "The whole year?");
+        like($tzname[1], qr/(GMT|UTC)/i, "The whole year?");
     }
 }