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

@@ -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;  
 
 }