[Catalyst-commits] r14452 - in trunk/Catalyst-Model-PayPal-IPN: . lib/Catalyst/Model/PayPal

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2013-06-27 19:44:19 +0000 (Thu, 27 Jun 2013)
New Revision: 14452

Modified:
   trunk/Catalyst-Model-PayPal-IPN/Changes
   trunk/Catalyst-Model-PayPal-IPN/lib/Catalyst/Model/PayPal/IPN.pm
Log:
Fix RT#86482

Modified: trunk/Catalyst-Model-PayPal-IPN/Changes
===================================================================
--- trunk/Catalyst-Model-PayPal-IPN/Changes	2013-06-14 16:32:02 UTC (rev 14451)
+++ trunk/Catalyst-Model-PayPal-IPN/Changes	2013-06-27 19:44:19 UTC (rev 14452)
@@ -1,5 +1,7 @@
 Revision history for Catalyst-Model-PayPal-IPN
 
+    - Fix RT#86482
+
 0.03  2013-02-25 14:12:00
     - Fix pod tests
 

Modified: trunk/Catalyst-Model-PayPal-IPN/lib/Catalyst/Model/PayPal/IPN.pm
===================================================================
--- trunk/Catalyst-Model-PayPal-IPN/lib/Catalyst/Model/PayPal/IPN.pm	2013-06-14 16:32:02 UTC (rev 14451)
+++ trunk/Catalyst-Model-PayPal-IPN/lib/Catalyst/Model/PayPal/IPN.pm	2013-06-27 19:44:19 UTC (rev 14452)
@@ -229,7 +229,7 @@
     # SignAndEncrypt needs CSV key/vals
     my $form;
     for my $form_param ( keys %$form_args ) {
-        $form .= $form_param . '=' . $form_args->{$form_param} . ',';
+        $form .= $form_param . '=' . $form_args->{$form_param} . "\n";
     }
 
     return Business::PayPal::EWP::SignAndEncrypt(