Here you go:
/home/gozer/sources/mod_perl2/deps/perl/bin/perl build/cvsdiff
Index: docs/src/api/mod_perl-2.0/APR/Table.pod
===================================================================
RCS file: /home/anoncvs/mod_perl-docs-cvs/src/api/mod_perl-2.0/APR/Table.pod,v
retrieving revision 1.1
diff -u -I'$Id' -I'$Revision' -r1.1 Table.pod
--- docs/src/api/mod_perl-2.0/APR/Table.pod 2001/10/02 14:59:17 1.1
+++ docs/src/api/mod_perl-2.0/APR/Table.pod 2001/10/22 09:40:32
@@ -21,6 +21,8 @@
$table->merge($key => $val);
overlap($table_a, $table_b, $flags);
$new_table = overlay($table_base, $table_overlay, $pool);
+
+ $table->do(sub {[...]}, [@filter]);
=head1 DESCRIPTION
@@ -134,7 +136,17 @@
=item * do()
- META: ???
+ $table->do(sub {[...]}, [@filter]);
+
+Iterate over all the elements of the table, invoking provided subroutine
+for each element. The subroutine gets passed as argument, a key-value pair.
+
+The subroutine can abort the iteration by returning 0 and should always return
+1 otherwise.
+
+param C<sub>: A subroutine reference or name to be called on each item in the table
+
+param C<@filter>: Only keys matching one of the entries in the filter will be
+processed
=item * get()
--
Philippe M. Chiasson <[EMAIL PROTECTED]>
Extropia's Resident System Guru
http://www.eXtropia.com/
Go away...I'm alright. (last words)
-- H. G. Wells
perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl
Hacker!\n$/&&print||$$++&&redo}'
PGP signature
