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