stas 2004/03/24 15:36:48
Modified: lib/Apache Status.pm
. Changes
Log:
fix a redefined warning in Apache::Status
Revision Changes Path
1.25 +1 -0 modperl-2.0/lib/Apache/Status.pm
Index: Status.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/Status.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -u -r1.24 -r1.25
--- Status.pm 24 Mar 2004 20:42:04 -0000 1.24
+++ Status.pm 24 Mar 2004 23:36:48 -0000 1.25
@@ -122,6 +122,7 @@
my($self, $key, $val, $sub) = @_;
$status{$key} = $val;
no strict;
+ no warnings 'redefine';
*{"status_${key}"} = $sub if $sub and ref $sub eq 'CODE';
}
1.352 +2 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.351
retrieving revision 1.352
diff -u -u -r1.351 -r1.352
--- Changes 24 Mar 2004 19:59:41 -0000 1.351
+++ Changes 24 Mar 2004 23:36:48 -0000 1.352
@@ -12,6 +12,8 @@
=item 1.99_14-dev
+Fix a redefined warning in Apache::Status [Stas]
+
Fix Apache::Status, to lookup the Apache::Request version without
loading it. Only if a suitable (2.x) version is found -- load and use
it. Previously loading the 1.x version was affecting Apache::compat.
