X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlfaq6.pod;h=c4512e695afb7159754713bcb9f2cc686a24fbe1;hb=5cb3728cfe288ad05e8d10c8176f72378da2238f;hp=6ddc0be149db230e49baa920d51c0ef2ae04d6e3;hpb=875e5c2f472bbad0194a8468805dfa001e86093d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/perlfaq6.pod b/pod/perlfaq6.pod index 6ddc0be..c4512e6 100644 --- a/pod/perlfaq6.pod +++ b/pod/perlfaq6.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq6 - Regexes ($Revision: 1.5 $, $Date: 2001/12/02 01:55:12 $) +perlfaq6 - Regular Expressions ($Revision: 1.8 $, $Date: 2002/01/31 04:27:55 $) =head1 DESCRIPTION @@ -218,10 +218,10 @@ longer than the original, you can use this code, by Jeff Pinyan: sub preserve_case { my ($from, $to) = @_; my ($lf, $lt) = map length, @_; - + if ($lt < $lf) { $from = substr $from, 0, $lt } else { $from .= substr $to, $lf } - + return uc $to | ($from ^ uc $from); } @@ -643,7 +643,7 @@ programming language, you insensitive scoundrel! Starting from Perl 5.6 Perl has had some level of multibyte character support. Perl 5.8 or later is recommended. Supported multibyte -character repetoires include Unicode, and legacy encodings +character repertoires include Unicode, and legacy encodings through the Encode module. See L, L, and L. @@ -728,7 +728,7 @@ in L. =head1 AUTHOR AND COPYRIGHT -Copyright (c) 1997-1999 Tom Christiansen and Nathan Torkington. +Copyright (c) 1997-2002 Tom Christiansen and Nathan Torkington. All rights reserved. This documentation is free; you can redistribute it and/or modify it