[Catalyst-commits] r8987 - in trunk/Catalyst-Plugin-FillInForm: . lib/Catalyst/Plugin

[jhannah at dev.catalyst.perl.org]

Author: jhannah
Date: 2009-01-01 00:46:46 +0000 (Thu, 01 Jan 2009)
New Revision: 8987

Modified:
   trunk/Catalyst-Plugin-FillInForm/Changes
   trunk/Catalyst-Plugin-FillInForm/lib/Catalyst/Plugin/FillInForm.pm
Log:
Suppress potential HTML::FillInForm warning.


Modified: trunk/Catalyst-Plugin-FillInForm/Changes
===================================================================
--- trunk/Catalyst-Plugin-FillInForm/Changes	2008-12-31 23:18:40 UTC (rev 8986)
+++ trunk/Catalyst-Plugin-FillInForm/Changes	2009-01-01 00:46:46 UTC (rev 8987)
@@ -1,10 +1,15 @@
 Revision history for Perl extension Catalyst::Plugin::FillInForm.
 
+0.10  2008-12-31 17:08:00
+        - Suppress potential HTML::FillInForm warning (jhannah)
+
 0.09  2008-04-29 11:48:00
         - PREREQS typo
+
 0.08  2008-04-12 13:16:00
         - Updated to Module::Install;
         - Added build_requires RenderView
+
 0.07  2008-04-11 21:49:00
         - Changed all references of output -> body.
         - Added tests & docs (jhannah)
@@ -21,6 +26,7 @@
 0.03  2005-04-15 16:12:00
         - Added pod tests
         - Extended documentation.
+
 0.02  2005-02-03 02:00:00 
         - $c->stash->{error} support
 

Modified: trunk/Catalyst-Plugin-FillInForm/lib/Catalyst/Plugin/FillInForm.pm
===================================================================
--- trunk/Catalyst-Plugin-FillInForm/lib/Catalyst/Plugin/FillInForm.pm	2008-12-31 23:18:40 UTC (rev 8986)
+++ trunk/Catalyst-Plugin-FillInForm/lib/Catalyst/Plugin/FillInForm.pm	2009-01-01 00:46:46 UTC (rev 8987)
@@ -4,7 +4,7 @@
 use NEXT;
 use HTML::FillInForm;
 
-our $VERSION = '0.09';
+our $VERSION = '0.10';
 
 =head1 NAME
 
@@ -105,6 +105,10 @@
     my $fdat = shift || $c->request->parameters;
     my $additional_params = shift;
 
+    # For whatever reason your response body is empty. So this fillform() will
+    # accomplish nothing. Skip HTML::FillInForm to avoid annoying warnings downstream. 
+    return 1 unless ($c->response->{body});
+
     $c->response->output(
         HTML::FillInForm->new->fill(
             scalarref => \$c->response->{body},