@@ -4829,27 +4829,24 @@ (define-public udpcast
(source
(origin
(method url-fetch)
- (uri (format #f
- ;; XXX: Original server is at https://www.udpcast.linux.lu
- ;; Unfortunately it's not very reliable:
- ;; "https://www.udpcast.linux.lu/download/udpcast-~a.tar.gz"
- ;; Here's an alternative URL for downloading the package:
- ;; "https://fossies.org/linux/privat/udpcast-~a.tar.gz"
- ;; "http://sources.buildroot.net/udpcast/udpcast-~a.tar.gz"
- "http://sources.buildroot.net/udpcast/udpcast-~a.tar.gz"
- version))
+ ;; XXX: Original server is at https://www.udpcast.linux.lu is not
+ ;; reliable.
+ (uri (list (string-append
+ "http://sources.buildroot.net/udpcast/udpcast-"
+ version ".tar.gz")
+ (string-append
+ "https://fossies.org/linux/privat/udpcast-"
+ version ".tar.gz")
+ (string-append
+ "https://www.udpcast.linux.lu/download/udpcast-"
+ version ".tar.gz")))
(sha256
(base32 "06pj86nbi9hx7abbb0z2c5ynhfq0rv89b7nmy0kq3xz2lsxfw6cw"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("m4" ,m4)
- ("perl" ,perl)))
- (arguments
- `(#:tests? #f)) ; no test suite
- (synopsis
- "Multicast file transfer tool")
+ (list autoconf automake m4 perl))
+ (arguments `(#:tests? #f)) ;no test suite
+ (synopsis "Multicast file transfer tool")
(description
"UDPcast is a file transfer tool that can send data simultaneously to
many destinations on a LAN. This can for instance be used to install entire