X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlfaq6.pod;h=c4512e695afb7159754713bcb9f2cc686a24fbe1;hb=5cb3728cfe288ad05e8d10c8176f72378da2238f;hp=58e9708915d2d49f9fda62dd26859c95fa674a43;hpb=d9d154f2fcc66578ca3928838452568e5aa1692b;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/perlfaq6.pod b/pod/perlfaq6.pod index 58e9708..c4512e6 100644 --- a/pod/perlfaq6.pod +++ b/pod/perlfaq6.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq6 - Regexes ($Revision: 1.4 $, $Date: 2001/11/09 08:06:04 $) +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