| Subject: | Do no warn when no XMLRPC request |
---
This is perl, v5.8.4 built for i386-linux-thread-multi
Ubuntu Hoary
Linux ondee 2.6.10-5-386 #1 Tue Apr 5 12:12:40 UTC 2005 i686 GNU/Linux
---
When running a perl script expecting to receive an XMLRPC request, whithout any XMLRPC request, it complains :
"Use of uninitialized value in string eq at /usr/share/perl5/Frontier/Responder.pm line 74."
Attached is a small patch fixing this minor unesthetics detail.
--- Responder.pm 2005-05-23 13:45:36.735612382 +0200
+++ /usr/share/perl5/Frontier/Responder.pm 2005-05-23 13:44:53.185083682 +0200
@@ -71,7 +71,7 @@
# CGI.pm doesn't grok this.
sub get_cgi_request{
my $in;
- if( $ENV{REQUEST_METHOD} eq 'POST' ){
+ if( $ENV{REQUEST_METHOD} && $ENV{REQUEST_METHOD} eq 'POST' ){
my $len = $ENV{CONTENT_LENGTH};
unless ( read( STDIN, $in, $len ) == $len ){
return;