update

diff --git a/scripts/perl/multicast/recv.pl b/scripts/perl/multicast/recv.pl
index 241d9df5718155c6becfbdbd3a706fd1c933c10b..ec55daf840bad0f3451f524d337b31a5395bfccc 100644 (file)
--- 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 7b8a9aea6de56e8dad031a9408aa599a2629a154..ed4c84dfe2441cc97c0bf6d584b64f505897f6ca 100755 (executable)
--- 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");