Mailing List Archive

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;