Skip test for changing TZ if running in a pseudo-fork (on Win32)

[p5sagit/p5-mst-13.2.git] / pod / perlfaq9.pod

diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod
index 2bed9d9..8ac3d0e 100644 (file)
--- a/pod/perlfaq9.pod
+++ b/pod/perlfaq9.pod
@@ -433,7 +433,8 @@ This I<just> matches the address itself:
     my $dot_atom   = qr{$atom(?:\.$atom)*};
     my $quoted     = qr{"(?:\\[^\r\n]|[^\\"])*"};
     my $local      = qr{(?:$dot_atom|$quoted)};
-    my $domain_lit = qr{\[(?:\\\S|[\x21-\x5a\x5e-\x7e])*\]};
+    my $quotedpair = qr{\\[\x00-\x09\x0B-\x0c\x0e-\x7e]};
+    my $domain_lit = qr{\[(?:$quotedpair|[\x21-\x5a\x5e-\x7e])*\]};
     my $domain     = qr{(?:$dot_atom|$domain_lit)};
     my $addr_spec  = qr{$local\@$domain};
 
@@ -667,7 +668,7 @@ http://search.cpan.org/search?query=RPC&mode=all ).
 
 Revision: $Revision: 8539 $
 
-Date: $Date: 2007-01-11 00:07:14 +0100 (jeu, 11 jan 2007) $
+Date: $Date: 2007-01-11 00:07:14 +0100 (Thu, 11 Jan 2007) $
 
 See L<perlfaq> for source control details and availability.