[bug#64570] [PATCH] fix `guix publish --advertise'

[bug#64570] [PATCH] fix `guix publish --advertise'

[nathan via Guix-patches via]

[-- Attachment #1: Type: text/plain, Size: 118 bytes --]

Simple oversight.
Since 0ae419877ce070721f8e5404c2fe7d721a22f998, timeout will be #f with `guix publish --advertise'.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-avahi-fix-exception-when-timeout-is-f.patch --]
[-- Type: text/x-patch, Size: 1022 bytes --]

From aa385273da1e97c5e69c34582611c7adf99ebbb4 Mon Sep 17 00:00:00 2001
From: nathan <nathan_mail@nborghese.com>
Date: Mon, 10 Jul 2023 23:26:54 -0400
Subject: [PATCH] avahi: fix exception when timeout is #f

* guix/avahi.scm (avahi-publish-service-thread): Fixes crash when timeout is
  #f, which is the default for "guix publish --advertise"
---
 guix/avahi.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/avahi.scm b/guix/avahi.scm
index 502b0b9dcd..574fe0b850 100644
--- a/guix/avahi.scm
+++ b/guix/avahi.scm
@@ -84,7 +84,9 @@ (define client-callback
                                   client-flag/ignore-user-config)
                                  client-callback)))
        (while (not (stop-loop?))
-         (iterate-simple-poll poll timeout))))))
+         (if timeout
+             (iterate-simple-poll poll timeout)
+             (iterate-simple-poll poll)))))))
 
 (define (interface->ip-address interface)
   "Return the local IP address of the given INTERFACE."
-- 
2.41.0

bug#64570: [PATCH] fix `guix publish --advertise'

[Ludovic Courtès]

Hi,

nathan <nathan_mail@nborghese.com> skribis:

> Simple oversight.
> Since 0ae419877ce070721f8e5404c2fe7d721a22f998, timeout will be #f with `guix publish --advertise'.
>
>>From aa385273da1e97c5e69c34582611c7adf99ebbb4 Mon Sep 17 00:00:00 2001
> From: nathan <nathan_mail@nborghese.com>
> Date: Mon, 10 Jul 2023 23:26:54 -0400
> Subject: [PATCH] avahi: fix exception when timeout is #f
>
> * guix/avahi.scm (avahi-publish-service-thread): Fixes crash when timeout is
>   #f, which is the default for "guix publish --advertise"

Oops, my bad.  Applied, thanks!

Ludo’.