diff options
| author | Eric Brine <ikegami@adaelis.com> | 2012-05-22 15:29:48 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-22 12:56:01 -0700 |
| commit | f6c6dcb63681097ed0944b9c7a8d91a87186184d (patch) | |
| tree | a75ea7de1bcc040c832e2bc49ee5119110d8c9bd /pod/perlfunc.pod | |
| parent | 667d5932a778569c5fd0522f87a993a17cffe7a3 (diff) | |
| download | perl-f6c6dcb63681097ed0944b9c7a8d91a87186184d.tar.gz | |
Purported equivalency isn't.
Diffstat (limited to 'pod/perlfunc.pod')
| -rw-r--r-- | pod/perlfunc.pod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index e0f49547c4..46df6c6337 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -2123,11 +2123,11 @@ regardless of case. Roughly, if you ever found yourself writing this - lc($this) eq lc($that) # Wrong! + lc($this) eq lc($that) # Wrong! # or - uc($this) eq uc($that) # Also wrong! + uc($this) eq uc($that) # Also wrong! # or - $this =~ /\Q$that/i # Right! + $this =~ /^\Q$that\E\z/i # Right! Now you can write |