From: Anthony Minessale <anthm@freeswitch.org>
Date: Wed, 7 Apr 2010 06:44:56 +0000 (-0500)
Subject: update
X-Git-Tag: git2svn-syncpoint-master~248
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7095887bad8f749c1d044ac70dee0648bda4b2f1;p=thirdparty%2Ffreeswitch.git

update
---

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");