clear a topic rather than publish a "-"

This commit is contained in:
Matthew Slowe 2021-01-24 17:15:01 +00:00
parent 489d5271d8
commit a2d0779088

View File

@ -85,7 +85,7 @@ sub set_berth($$$) {
sub clear_berth($$) {
my ($area, $berth) = @_;
publish(sprintf("berths/%s/%s", $area||"-", $berth || "-"), "-");
publish(sprintf("berths/%s/%s", $area||"-", $berth || "-"), undef);
}
sub publish($$) {