[Freeswitch-svn] [commit] r13012 - freeswitch/trunk/libs/esl/perl/ESL

[FreeSWITCH SVN]

Author: anthm
Date: Mon Apr 13 18:09:32 2009
New Revision: 13012

Log:
fix undef check

Modified:
   freeswitch/trunk/libs/esl/perl/ESL/IVR.pm

Modified: freeswitch/trunk/libs/esl/perl/ESL/IVR.pm
==============================================================================
--- freeswitch/trunk/libs/esl/perl/ESL/IVR.pm	(original)
+++ freeswitch/trunk/libs/esl/perl/ESL/IVR.pm	Mon Apr 13 18:09:32 2009
@@ -43,14 +43,12 @@
   my $input;
 
   if ($e) {
-    $input = $e->getBody() . "\n";
-    if ($input eq "_undef_") {
+    $input = $e->getBody();
+    if ($input && $input eq "_undef_") {
       $input = undef;
     }
   }
   
-  chomp $input;
-  
   return $input;  
 
 }