From 41e011a5f944bfb30abcca48369b304f3339040a Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Mon, 13 Apr 2009 23:09:32 +0000
Subject: [PATCH] fix undef check

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@13012 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 libs/esl/perl/ESL/IVR.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/libs/esl/perl/ESL/IVR.pm b/libs/esl/perl/ESL/IVR.pm
index e36b8c9029..f7919c1b94 100644
--- a/libs/esl/perl/ESL/IVR.pm
+++ b/libs/esl/perl/ESL/IVR.pm
@@ -43,14 +43,12 @@ sub getVar($;) {
   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;  
 
 }