diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-20 06:51:55 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-02-20 06:51:55 +0000 |
| commit | 5ed30e05ed3fff2b3516c0be37ef98859920f520 (patch) | |
| tree | f5ab1cb294fecc213a01c6d2278e85ddb2cf464a /pod/perlfaq4.pod | |
| parent | e7ec2331900cd22a50f48dd01fa18bd3026f6253 (diff) | |
| download | perl-5ed30e05ed3fff2b3516c0be37ef98859920f520.tar.gz | |
Fix suggested by Anton Tagunov <tagunov@motor.ru>.
p4raw-id: //depot/perl@14779
Diffstat (limited to 'pod/perlfaq4.pod')
| -rw-r--r-- | pod/perlfaq4.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod index 3b9cac69a3..8df3c8281d 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -581,7 +581,7 @@ really does work: @( = ('(',''); @) = (')',''); ($re=$_)=~s/((BEGIN)|(END)|.)/$)[!$3]\Q$1\E$([!$2]/gs; - @$ = (eval{/$re/},$@!~/unmatched/); + @$ = (eval{/$re/},$@!~/unmatched/i); print join("\n",@$[0..$#$]) if( $$[-1] ); =head2 How do I reverse a string? |