cvs commit: modperl-2.0/examples/lib/Apache HelloWorld.pm

[dougm]

dougm       02/04/05 19:18:22

  Modified:    examples/lib/Apache HelloWorld.pm
  Log:
  update example
  
  Revision  Changes    Path
  1.3       +2 -1      modperl-2.0/examples/lib/Apache/HelloWorld.pm
  
  Index: HelloWorld.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/examples/lib/Apache/HelloWorld.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- HelloWorld.pm     27 Mar 2001 02:34:51 -0000      1.2
  +++ HelloWorld.pm     6 Apr 2002 03:18:22 -0000       1.3
  @@ -8,6 +8,7 @@
   use strict;
   use Apache::RequestRec (); #for $r->content_type
   use Apache::RequestIO ();  #for $r->puts
  +use Apache::Const -compile => 'OK';
   
   sub handler {
       my $r = shift;
  @@ -18,7 +19,7 @@
   
       $r->puts(__PACKAGE__); #print not yet implemented
   
  -    0; #constants not yet implemented
  +    return OK;
   }
   
   1;