You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1999/08/03 23:29:45 UTC
cvs commit: modperl/lib/Apache PerlRun.pm
dougm 99/08/03 14:29:44
Modified: . Changes
lib/Apache PerlRun.pm
Log:
fix flush_namespace undef logic in Apache::PerlRun
Revision Changes Path
1.325 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.324
retrieving revision 1.325
diff -u -r1.324 -r1.325
--- Changes 1999/08/03 14:32:59 1.324
+++ Changes 1999/08/03 21:29:41 1.325
@@ -8,6 +8,9 @@
=item 1.21_01-dev
+fix flush_namespace undef logic in Apache::PerlRun, thanks to Karsten
+Meier for the spot
+
Tweak Apache::content to comply with media-types embedded in content-types
(RFC 2616 section 3.7) <ch...@logilune.com>
1.17 +7 -7 modperl/lib/Apache/PerlRun.pm
Index: PerlRun.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- PerlRun.pm 1999/03/26 20:41:57 1.16
+++ PerlRun.pm 1999/08/03 21:29:42 1.17
@@ -304,17 +304,17 @@
my $tab = \%{$package.'::'};
for (keys %$tab) {
- if(defined &{ $tab->{$_} }) {
+ if(*{ $tab->{$_} }{CODE}) {
undef_cv_if_owner($package, \&{ $tab->{$_} });
}
- if(defined %{ $tab->{$_} }) {
- %{ $tab->{$_} } = undef;
+ if(*{ $tab->{$_} }{HASH}) {
+ undef %{ $tab->{$_} };
}
- if(defined @{ $tab->{$_} }) {
- @{ $tab->{$_} } = undef;
+ if(*{ $tab->{$_} }{ARRAY}) {
+ undef @{ $tab->{$_} };
}
- if(defined ${ $tab->{$_} }) {
- ${ $tab->{$_} } = undef;
+ if(*{ $tab->{$_} }{SCALAR}) {
+ undef ${ $tab->{$_} };
}
}
}