diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-18 19:37:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-18 19:37:41 +0000 |
| commit | 227a8b4b89a56a5f0c4892bc310a24a6cfceb3b7 (patch) | |
| tree | 9d62b508b060ee139abf54965068642252596cef /pod/perlsub.pod | |
| parent | 4c50607213c2b23bfa1ef0717a5a31b40103430b (diff) | |
| download | perl-227a8b4b89a56a5f0c4892bc310a24a6cfceb3b7.tar.gz | |
back out problematic change#1105, tweak perlsub.pod
p4raw-link: @1105 on //depot/perl: e2d46a1de163ba101bb4392a8fa6d97ca3c9a323
p4raw-id: //depot/perl@1146
Diffstat (limited to 'pod/perlsub.pod')
| -rw-r--r-- | pod/perlsub.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlsub.pod b/pod/perlsub.pod index 5baff89473..392323a288 100644 --- a/pod/perlsub.pod +++ b/pod/perlsub.pod @@ -1065,7 +1065,7 @@ that understands regular expressions. my $pat = shift; my @got; local(*D); - if (opendir D, '.') { @got = grep /$pat/o, readdir D; closedir D; } + if (opendir D, '.') { @got = grep /$pat/, readdir D; closedir D; } @got; } 1; |