Changeset 9008 for trunk/IO-Socket-Multicast

Timestamp:

11/02/09 04:19:58 (2 years ago)

Author:

submersible_toaster

Message:

effectivly replace 02_main by 03_multicast , roll version

Location:

trunk/IO-Socket-Multicast

Files:

• lib/IO/Socket/Multicast.pm (modified) (1 diff)
• t/02_main.t (deleted)
• t/03_multicast.t (modified) (2 diffs)

trunk/IO-Socket-Multicast/lib/IO/Socket/Multicast.pm

@@ -21 +21 @@
     mcast_send
   );
-  $VERSION = '1.07_02';
+  $VERSION = '1.08';
   @ISA = qw(
     Exporter

trunk/IO-Socket-Multicast/t/03_multicast.t

@@ -30 +30 @@
   # What the hell ? Dropping an unsubscribed mcast group on win32 fails to fail?
 } else {
-  ok(!$s->mcast_drop('225.0.1.1'), 'Drop unsbuscribed group returns false'  );
+  ok(!$s->mcast_drop('225.0.1.1'), 'Drop unsubscribed group returns false'  );
 }
 
@@ -62 +62 @@
   my @ifs = $s->if_list;
   foreach (reverse @ifs) {
-    diag( $_ );
-    diag( $s->if_flags($_) );
     
     next unless $s->if_flags($_) & IFF_MULTICAST();
-    diag( $_ .' Is multicast' );
     next unless $s->if_flags($_) & IFF_RUNNING();
-    diag( $_ . '  Is running' );
     next unless $s->if_addr($_); 
     return $_;