*** ./Audio-OSC-0.02/lib/Audio/OSC.pm	Sun Aug  8 22:36:55 2004
--- Audio-OSC-0.02-yaxu/lib/Audio/OSC.pm	Wed Aug 18 23:35:12 2004
***************
*** 141,147 ****
      }
      
      while (length($data) > 0) {
!         my $len = unpack('l', $data);
          substr($data, 0, 4) = '';
          push @$msg, decode(substr($data, 0, $len));
          substr($data, 0, $len) = '';
--- 141,147 ----
      }
      
      while (length($data) > 0) {
!         my $len = unpack('N', $data);
          substr($data, 0, 4) = '';
          push @$msg, decode(substr($data, 0, $len));
          substr($data, 0, $len) = '';
***************
*** 175,181 ****
          
        SWITCH: for ($_) {
              /i/ && do {
!                 push @$msg, unpack('l', $data);
                  # remove this integer from remaining data
                  substr($data, 0, 4) = '';
                  last SWITCH;
--- 175,181 ----
          
        SWITCH: for ($_) {
              /i/ && do {
!                 push @$msg, unpack('N', $data);
                  # remove this integer from remaining data
                  substr($data, 0, 4) = '';
                  last SWITCH;
***************
*** 194,200 ****
                  last SWITCH;
              };
              /b/ && do {
!                 my $len = unpack('l', $data);
                  substr($data, 0, 4) = '';            
                  
                  push @$msg, substr($data, 0, $len);
--- 194,200 ----
                  last SWITCH;
              };
              /b/ && do {
!                 my $len = unpack('N', $data);
                  substr($data, 0, 4) = '';            
                  
                  push @$msg, substr($data, 0, $len);