gozer 2004/09/14 10:08:15
Modified: src/docs/2.0/api/Apache Command.pod
Log:
Simplify example code
Revision Changes Path
1.12 +1 -3 modperl-docs/src/docs/2.0/api/Apache/Command.pod
Index: Command.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/api/Apache/Command.pod,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- Command.pod 14 Sep 2004 00:31:49 -0000 1.11
+++ Command.pod 14 Sep 2004 17:08:15 -0000 1.12
@@ -11,13 +11,11 @@
use Apache::Command ();
my $module = Apache::Module::find_linked_module('mod_perl.c');
- my $cmd = $module->cmds();
- while ($cmd) {
+ for (my $cmd = $module->cmds(); $cmd; $cmd = $cmd->next()) {
$cmd->args_how();
$cmd->errmsg();
$cmd->name();
$cmd->req_override();
- $cmd = $cmd->next();
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
