From 7095887bad8f749c1d044ac70dee0648bda4b2f1 Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthm@freeswitch.org>
Date: Wed, 7 Apr 2010 01:44:56 -0500
Subject: [PATCH] update

---
 scripts/perl/multicast/recv.pl | 1 -
 scripts/perl/multicast/send.pl | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/scripts/perl/multicast/recv.pl b/scripts/perl/multicast/recv.pl
index 241d9df571..ec55daf840 100644
--- a/scripts/perl/multicast/recv.pl
+++ b/scripts/perl/multicast/recv.pl
@@ -8,6 +8,5 @@ my $socket = IO::Socket::Multicast->new( LocalPort => $port, ReuseAddr => 1 );
 $socket->mcast_add($ip);
 
 while($socket->recv($data,1024)) {
-  $data =~ s/^.{8}//;
   print $data;
 }
diff --git a/scripts/perl/multicast/send.pl b/scripts/perl/multicast/send.pl
index 7b8a9aea6d..ed4c84dfe2 100755
--- a/scripts/perl/multicast/send.pl
+++ b/scripts/perl/multicast/send.pl
@@ -13,5 +13,5 @@ $/ = undef;
 my $buf = <I>;
 close(I);
 
-$socket->send("00000000$buf\n");
+$socket->send("$buf\n");