This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
6i6 Gen 2 | |
--------- | |
- 6x Hardware Inputs | |
- Analogue In 1-2: Mic/Line/Inst In 1-2 (Pad) | |
- Analogue In 3-4: Line In 3-4 | |
- S/PDIF 1-2 | |
- Hardware Input Controls | |
- 2x Input Gain knobs for Analogue In 1-2 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- PubSub.pm.orig 2018-11-07 22:09:03.636066615 +1030 | |
+++ PubSub.pm 2018-11-07 22:21:28.613982320 +1030 | |
@@ -29,8 +29,12 @@ | |
sub unlisten { | |
my ($self, $name, $cb) = @_; | |
my $chan = $self->{chans}{$name}; | |
+ my $unlisten = $cb ? grep { $cb eq $_ } @$chan : 1; | |
@$chan = $cb ? grep { $cb ne $_ } @$chan : (); | |
- $self->_db->unlisten($name) and delete $self->{chans}{$name} unless @$chan; | |
+ if (!@$chan) { |