svn commit: r632150 - /perl/modperl/branches/1.x/lib/Apache/FakeRequest.pm

[gozer]

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" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>


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;