stas 2002/11/24 04:07:23
Modified: src/docs/1.0/guide config.pod
Log:
tidy up the code samples
Revision Changes Path
1.15 +17 -18 modperl-docs/src/docs/1.0/guide/config.pod
Index: config.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/1.0/guide/config.pod,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- config.pod 16 Aug 2002 05:57:14 -0000 1.14
+++ config.pod 24 Nov 2002 12:07:23 -0000 1.15
@@ -826,7 +826,7 @@
useful to I<PerlDispatchHandlers> which wish to take action for
certain phases only.
- if($r->current_callback eq "PerlLogHandler") {
+ if ($r->current_callback eq "PerlLogHandler") {
$r->warn("Logging request");
}
@@ -2308,20 +2308,19 @@
use Apache::ExtUtils qw(command_table);
use Apache::src ();
- my @directives = (
- { name => 'Directive4',
- errmsg => 'Anything',
- args_how => 'RAW_ARGS',
- req_override=> 'OR_ALL',
- },
- );
-
+ my @directives = ({
+ name => 'Directive4',
+ errmsg => 'Anything',
+ args_how => 'RAW_ARGS',
+ req_override=> 'OR_ALL',
+ });
+
command_table([EMAIL PROTECTED]);
WriteMakefile(
- 'NAME' => 'Apache::TestDirective',
- 'VERSION_FROM' => 'TestDirective.pm',
- 'INC' => Apache::src->new->inc,
+ NAME => 'Apache::TestDirective',
+ VERSION_FROM => 'TestDirective.pm',
+ INC => Apache::src->new->inc,
);
TestDirective.pm
@@ -2332,15 +2331,15 @@
use Apache::ModuleConfig ();
use DynaLoader ();
- if($ENV{MOD_PERL}) {
- no strict;
- $VERSION = '0.01';
- @ISA = qw(DynaLoader);
- __PACKAGE__->bootstrap($VERSION); #command table, etc.
+ if ($ENV{MOD_PERL}) {
+ no strict;
+ $VERSION = '0.01';
+ @ISA = qw(DynaLoader);
+ __PACKAGE__->bootstrap($VERSION); #command table, etc.
}
sub Directive4 {
- warn "Directive4 @_\n";
+ warn "Directive4 @_\n";
}
1;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
