diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 23:11:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 23:11:05 +0000 |
| commit | 7b8d334a971230040a212bc5038097b3f600a094 (patch) | |
| tree | e0fd6231e06e9b8f7e54aae4cec4ead51585219a /pod/perlfaq4.pod | |
| parent | 6ee623d521a149edc6574c512fa951a192cd086a (diff) | |
| download | perl-7b8d334a971230040a212bc5038097b3f600a094.tar.gz | |
[win32] merge change#897 from maintbranch
p4raw-link: @897 on //depot/maint-5.004/perl: f06f9b6fc5a686f0169ee2a91b32d5e7125a44ae
p4raw-id: //depot/win32/perl@974
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 a5b505c4a7..4c38d906ba 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -559,7 +559,7 @@ quite a lot of space by using bit strings instead: @articles = ( 1..10, 150..2000, 2017 ); undef $read; - grep (vec($read,$_,1) = 1, @articles); + for (@articles) { vec($read,$_,1) = 1 } Now check whether C<vec($read,$n,1)> is true for some C<$n>. |