gozer at apache
Feb 28, 2008, 2:48 PM
Post #1 of 1
(339 views)
Permalink
|
|
svn commit: r632150 - /perl/modperl/branches/1.x/lib/Apache/FakeRequest.pm
|
|
Author: gozer
Date: Thu Feb 28 14:48:16 2008
New Revision: 632150
URL: http://svn.apache.org/viewvc?rev=632150&view=rev
Log:
Silence a warning under Perl-5.10
Name "Apache::FakeRequest" used only once: possible typo
Reviewed-by: Gozer
From: "David E. Wheeler" <david[at]kineticode.com>
Message-ID: <F4014F81-1160-4D89-83BE-79CCBD96B69D[at]kineticode.com>
Modified:
perl/modperl/branches/1.x/lib/Apache/FakeRequest.pm
Modified: perl/modperl/branches/1.x/lib/Apache/FakeRequest.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/lib/Apache/FakeRequest.pm?rev=632150&r1=632149&r2=632150&view=diff
==============================================================================
--- perl/modperl/branches/1.x/lib/Apache/FakeRequest.pm (original)
+++ perl/modperl/branches/1.x/lib/Apache/FakeRequest.pm Thu Feb 28 14:48:16 2008
@@ -23,7 +23,7 @@
filename get_basic_auth_pw get_remote_host
get_remote_logname handler hard_timeout
header_in header_only header_out
- headers_in headers_out hostname import
+ headers_in headers_out hostname
internal_redirect_handler is_initial_req is_main
kill_timeout log_error log_reason
lookup_file lookup_uri main
@@ -68,6 +68,7 @@
parse_args(wantarray, $r->{args});
}
+sub import { shift->elem('import', @_) if ref $_[0] }
{
my @code;
|
