stas 02/04/25 22:33:53
Modified: src/docs/2.0/user/overview overview.pod
Log:
correct the examples to import Apache:: constants
Revision Changes Path
1.5 +7 -1 modperl-docs/src/docs/2.0/user/overview/overview.pod
Index: overview.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/overview/overview.pod,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- overview.pod 14 Apr 2002 07:11:49 -0000 1.4
+++ overview.pod 26 Apr 2002 05:33:53 -0000 1.5
@@ -770,6 +770,8 @@
use strict;
+ use Apache::Const -compile => 'OK';
+
sub handler {
my $filter = shift;
@@ -907,6 +909,8 @@
use constant BUFF_LEN => 1024;
+ use Apache::Const -compile => 'OK';
+
sub handler {
my Apache::Connection $c = shift;
my APR::Socket $socket = $c->client_socket;
@@ -1053,7 +1057,9 @@
use strict;
use Apache::Connection ();
use APR::Socket ();
-
+
+ use Apache::Const -compile => qw(OK DECLINED);
+
my @cmds = qw(motd date who quit);
my %commands = map { $_, \&{$_} } @cmds;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
