perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From r..@hyperreal.org
Subject cvs commit: modperl/lib/Apache Registry.pm
Date Thu, 11 Jun 1998 08:42:43 GMT
rse         98/06/11 01:42:43

  Modified:    lib/Apache Registry.pm
  Log:
  The =pod/=cut trick (like CPP's #if 0/#endif) is ok when no embedded real POD
  document exists. But when one exists the "out-pod-ed" code sections occur in
  the manual page.  A "perldoc Apache::Registry" showed these stuff :-(
  
  Revision  Changes    Path
  1.9       +8 -10     modperl/lib/Apache/Registry.pm
  
  Index: Registry.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/Registry.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- Registry.pm	1998/05/10 08:45:56	1.8
  +++ Registry.pm	1998/06/11 08:42:42	1.9
  @@ -3,8 +3,8 @@
   #use strict; #eval'd scripts will inherit hints
   use Apache::Constants qw(:common &OPT_EXECCGI &REDIRECT);
   
  -#$Id: Registry.pm,v 1.8 1998/05/10 08:45:56 dougm Exp $
  -$Apache::Registry::VERSION = (qw$Revision: 1.8 $)[1];
  +#$Id: Registry.pm,v 1.9 1998/06/11 08:42:42 rse Exp $
  +$Apache::Registry::VERSION = (qw$Revision: 1.9 $)[1];
   
   $Apache::Registry::Debug ||= 0;
   # 1 => log recompile in errorlog
  @@ -149,14 +149,12 @@
   	    return Apache::Debug::dump($r, SERVER_ERROR);
   	}
   
  -=pod
  -	#XXX
  -	if(my $loc = $r->header_out("Location")) {
  -	    if($r->status == 200 and substr($loc, 0, 1) ne "/") {
  -		return REDIRECT;
  -	    }
  -	}
  -=cut
  +#	#XXX
  +#	if(my $loc = $r->header_out("Location")) {
  +#	    if($r->status == 200 and substr($loc, 0, 1) ne "/") {
  +#		return REDIRECT;
  +#	    }
  +#	}
   	return $r->status;
       } else {
   	return NOT_FOUND unless $Debug && $Debug & 2;
  
  
  

Mime
View raw message