… | … | ||
---|---|---|---|
64 | 64 | ||
65 | my $facestr = join ",", @$faces; | 65 | my $facestr = join ",", @$faces; |
66 | $ns->{current_music_faces} ne $facestr | 66 | $ns->{current_music_faces} ne $facestr |
67 | or next; | 67 | or next; |
68 | 68 | ||
69 | warn "MUSIC CHANGE <$ns->{current_music_faces}> <$facestr>\n";#d# | ||
70 | |||
71 | $ns->{current_music_faces} = $facestr; | 69 | $ns->{current_music_faces} = $facestr; |
72 | 70 | ||
73 | my $msg = { | 71 | my $msg = { |
74 | play => $faces, | 72 | play => $faces, |
75 | }; | 73 | }; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |