perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/docs/2.0/user/overview overview.pod
Date Fri, 26 Apr 2002 05:33:53 GMT
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: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message