Fix typos in regular expressions
Rafael Garcia-Suarez [Tue, 20 Dec 2005 19:37:26 +0000 (19:37 +0000)]
p4raw-id: //depot/perl@26424

ext/POSIX/t/time.t

index c09a375..103a161 100644 (file)
@@ -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?");
     }
 }