all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: ng0 <ng0@infotropique.org>
To: 27944@debbugs.gnu.org
Subject: [bug#27944] perl-net-psyc: Update to 1.2
Date: Fri, 4 Aug 2017 08:56:56 +0000	[thread overview]
Message-ID: <20170804085656.utv6roedtv5p56bz@abyayala> (raw)


[-- Attachment #1.1: Type: text/plain, Size: 2969 bytes --]

The appended patch updates to 1.2, as it builds from git
I have included the commit + revision numbers in the version.

Changes:
Dependency on rxaudio is removed, the author has worked on
a new version of the binary which required this with primarily
mplayer support. rxaudio is now optional. It can still be used,
but you have to have it in the path and pass a switch to psycamp.
This is all commented in the perl script, the overall impression
I have is that it no longer promotes rxaudio because mplayer is
supported.

Issues:
I ran into the "dotless @INC" issue here. Is this fixed on
core-updates?

user@abyayala ~$ psycion
Can't locate Net/PSYC.pm in @INC (you may need to install the Net::PSYC module) (@INC contains: /usr/depot/lib/perl5 /usr/depot/lib/perl5 /gnu/store/lv3g88j8wf7pbwrravydmn4fvgjfv462-perl-5.24.0/lib/perl5/site_perl/5.24.0/x86_64-linux-thread-multi /gnu/store/lv3g88j8wf7pbwrravydmn4fvgjfv462-perl-5.24.0/lib/perl5/site_perl/5.24.0 /gnu/store/lv3g88j8wf7pbwrravydmn4fvgjfv462-perl-5.24.0/lib/perl5/site_perl /gnu/store/h5qwfvgn7ns5f7bjnz8bwyj3b3r2ckgg-perl-curses-1.36/lib/perl5/site_perl/5.24.0/x86_64-linux-thread-multi /gnu/store/h5qwfvgn7ns5f7bjnz8bwyj3b3r2ckgg-perl-curses-1.36/lib/perl5/site_perl/5.24.0 /gnu/store/h5qwfvgn7ns5f7bjnz8bwyj3b3r2ckgg-perl-curses-1.36/lib/perl5/site_perl /gnu/store/ymh0x4dcnhz262h8zk6k46ij6pbv10w6-perl-io-socket-ssl-2.038/lib/perl5/site_perl/5.24.0/x86_64-linux-thread-multi /gnu/store/ymh0x4dcnhz262h8zk6k46ij6pbv10w6-perl-io-socket-ssl-2.038/lib/perl5/site_perl/5.24.0 /gnu/store/ymh0x4dcnhz262h8zk6k46ij6pbv10w6-perl-io-socket-ssl-2.038/lib/perl5/site_perl /gnu/store/q2bkhyk4izn6i4589z36ifs9i28yrvpl-perl-uri-1.71/lib/perl5/site_perl/5.24.0/x86_64-linux-thread-multi /gnu/store/q2bkhyk4izn6i4589z36ifs9i28yrvpl-perl-uri-1.71/lib/perl5/site_perl/5.24.0 /gnu/store/q2bkhyk4izn6i4589z36ifs9i28yrvpl-perl-uri-1.71/lib/perl5/site_perl /gnu/store/p32jc6bd92bf6xmpa8x3w4mba6w8pg0l-perl-net-ssleay-1.68/lib/perl5/site_perl/5.24.0/x86_64-linux-thread-multi /gnu/store/p32jc6bd92bf6xmpa8x3w4mba6w8pg0l-perl-net-ssleay-1.68/lib/perl5/site_perl/5.24.0 /gnu/store/p32jc6bd92bf6xmpa8x3w4mba6w8pg0l-perl-net-ssleay-1.68/lib/perl5/site_perl /gnu/store/lv3g88j8wf7pbwrravydmn4fvgjfv462-perl-5.24.0/lib/perl5/site_perl/5.24.0/x86_64-linux-thread-multi /gnu/store/lv3g88j8wf7pbwrravydmn4fvgjfv462-perl-5.24.0/lib/perl5/site_perl/5.24.0 /gnu/store/lv3g88j8wf7pbwrravydmn4fvgjfv462-perl-5.24.0/lib/perl5/5.24.0/x86_64-linux-thread-multi /gnu/store/lv3g88j8wf7pbwrravydmn4fvgjfv462-perl-5.24.0/lib/perl5/5.24.0 .) at /gnu/store/kxscm40rignddlas7qxpdb4bmi0qrqld-perl-net-psyc-1.2-1.5a24e0e/bin/.psycion-real line 25.
BEGIN failed--compilation aborted at /gnu/store/kxscm40rignddlas7qxpdb4bmi0qrqld-perl-net-psyc-1.2-1.5a24e0e/bin/.psycion-real line 41.

-- 
ng0
GnuPG: A88C8ADD129828D7EAC02E52E22F9BBFEE348588
GnuPG: https://n0is.noblogs.org/my-keys
https://www.infotropique.org https://krosos.org

[-- Attachment #1.2: 0001-gnu-perl-net-psyc-Update-to-1.2.patch --]
[-- Type: text/plain, Size: 8870 bytes --]

From 03691625a0ec0b05407601f32686aeb9bf3fd76a Mon Sep 17 00:00:00 2001
From: ng0 <ng0@infotropique.org>
Date: Fri, 4 Aug 2017 08:06:37 +0000
Subject: [PATCH] gnu: perl-net-psyc: Update to 1.2.

* gnu/packages/messaging.scm (perl-net-psyc): Update to 1.2.
(source): Switch to git.
---
 gnu/packages/messaging.scm | 149 +++++++++++++++++++++++----------------------
 1 file changed, 75 insertions(+), 74 deletions(-)

diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
index eb9e86915..07c06d3fe 100644
--- a/gnu/packages/messaging.scm
+++ b/gnu/packages/messaging.scm
@@ -5,7 +5,7 @@
 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il>
-;;; Copyright © 2016, 2017 <contact.ng0@cryptolab.net>
+;;; Copyright © 2016, 2017 <ng0@infotropique.org>
 ;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca>
 ;;; Copyright © 2016, 2017 Clément Lassieur <clement@lassieur.org>
 ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
@@ -939,84 +939,85 @@ into existing applications.")
     (home-page "https://camaya.net/gloox")
     (license license:gpl3)))
 
+;; There is no release tarball of this release version.
 (define-public perl-net-psyc
-  (package
-    (name "perl-net-psyc")
-    (version "1.1")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (string-append "http://perlpsyc.psyc.eu/"
-                           "perlpsyc-" version ".zip"))
-       (file-name (string-append name "-" version ".zip"))
-       (sha256
-        (base32
-         "1lw6807qrbmvzbrjn1rna1dhir2k70xpcjvyjn45y35hav333a42"))
-       ;; psycmp3 currently depends on MP3::List and rxaudio (shareware),
-       ;; we can add it back when this is no longer the case.
-       (snippet '(delete-file "contrib/psycmp3"))))
-    (build-system perl-build-system)
-    (inputs
-     `(("perl-curses" ,perl-curses)
-       ("perl-io-socket-ssl" ,perl-io-socket-ssl)))
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (delete 'configure) ; No configure script
-         ;; There is a Makefile, but it does not install everything
-         ;; (leaves out psycion) and says
-         ;; "# Just to give you a rough idea". XXX: Fix it upstream.
-         (replace 'build
-           (lambda _
-             (zero? (system* "make" "manuals"))))
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (doc (string-append out "/share/doc/perl-net-psyc"))
-                    (man1 (string-append out "/share/man/man1"))
-                    (man3 (string-append out "/share/man/man3"))
-                    (bin (string-append out "/bin"))
-                    (libpsyc (string-append out "/lib/psyc/ion"))
-                    (libperl (string-append out "/lib/perl5/site_perl/"
-                                            ,(package-version perl))))
+  (let ((commit "5a24e0e643885a16e7c3b7b6ac50e4db31e476d0")
+        (revision "1"))
+    (package
+      (name "perl-net-psyc")
+      (version (string-append "1.2-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "git://git.psyced.org/git/perlpsyc")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "16kwxzkrfzl1hq02ablmflbaciijlyd4d7ggqhpabb8m7xn5vx7w"))))
+      (build-system perl-build-system)
+      (inputs
+       `(("perl-curses" ,perl-curses)
+         ("perl-io-socket-ssl" ,perl-io-socket-ssl)))
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (delete 'configure) ; No configure script
+           ;; There is a Makefile, but it does not install everything
+           ;; (leaves out psycion) and says
+           ;; "# Just to give you a rough idea". XXX: Fix it upstream.
+           (replace 'build
+             (lambda _
+               (zero? (system* "make" "manuals"))))
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (doc (string-append out "/share/doc/perl-net-psyc"))
+                      (man1 (string-append out "/share/man/man1"))
+                      (man3 (string-append out "/share/man/man3"))
+                      (bin (string-append out "/bin"))
+                      (libpsyc (string-append out "/lib/psyc/ion"))
+                      (libperl (string-append out "/lib/perl5/site_perl/"
+                                              ,(package-version perl))))
 
-               (copy-recursively "lib/perl5" libperl)
-               (copy-recursively "lib/psycion" libpsyc)
-               (copy-recursively "bin" bin)
-               (install-file "cgi/psycpager" (string-append doc "/cgi"))
-               (copy-recursively "contrib" (string-append doc "/contrib"))
-               (copy-recursively "hooks" (string-append doc "/hooks"))
-               (copy-recursively "sdj" (string-append doc "/sdj"))
-               (install-file "README.txt" doc)
-               (install-file "TODO.txt" doc)
-               (copy-recursively "share/man/man1" man1)
-               (copy-recursively "share/man/man3" man3)
-               #t)))
-         (add-after 'install 'wrap-programs
-           (lambda* (#:key outputs #:allow-other-keys)
-             ;; Make sure all executables in "bin" find the Perl modules
-             ;; provided by this package at runtime.
-             (let* ((out  (assoc-ref outputs "out"))
-                    (bin  (string-append out "/bin/"))
-                    (path (getenv "PERL5LIB")))
-               (for-each (lambda (file)
-                           (wrap-program file
-                             `("PERL5LIB" ":" prefix (,path))))
-                         (find-files bin "\\.*$"))
-               #t))))))
-    (description
-     "@code{Net::PSYC} with support for TCP, UDP, Event.pm, @code{IO::Select} and
+                 (copy-recursively "lib/perl5" libperl)
+                 (copy-recursively "lib/psycion" libpsyc)
+                 (copy-recursively "bin" bin)
+                 (install-file "cgi/psycpager" (string-append doc "/cgi"))
+                 (copy-recursively "contrib" (string-append doc "/contrib"))
+                 (copy-recursively "hooks" (string-append doc "/hooks"))
+                 (copy-recursively "sdj" (string-append doc "/sdj"))
+                 (install-file "README.txt" doc)
+                 (install-file "TODO.txt" doc)
+                 (copy-recursively "share/man/man1" man1)
+                 (copy-recursively "share/man/man3" man3)
+                 #t)))
+           (add-after 'install 'wrap-programs
+             (lambda* (#:key outputs #:allow-other-keys)
+               ;; Make sure all executables in "bin" find the Perl modules
+               ;; provided by this package at runtime.
+               (let* ((out  (assoc-ref outputs "out"))
+                      (bin  (string-append out "/bin/"))
+                      (path (getenv "PERL5LIB")))
+                 (for-each (lambda (file)
+                             (wrap-program file
+                               `("PERL5LIB" ":" prefix (,path))))
+                           (find-files bin "\\.*$"))
+                 #t))))))
+      (description
+       "@code{Net::PSYC} with support for TCP, UDP, Event.pm, @code{IO::Select} and
 Gtk2 event loops.  This package includes 12 applications and additional scripts:
 psycion (a @uref{http://about.psyc.eu,PSYC} chat client), remotor (a control console
 for @uref{https://torproject.org,tor} router) and many more.")
-    (synopsis "Perl implementation of PSYC protocol")
-    (home-page "http://perlpsyc.psyc.eu/")
-    (license (list license:gpl2
-                   license:perl-license
-                   ;; contrib/irssi-psyc.pl:
-                   license:public-domain
-                   ;; bin/psycplay states AGPL with no version:
-                   license:agpl3+))))
+      (synopsis "Perl implementation of PSYC protocol")
+      (home-page "http://perlpsyc.psyc.eu/")
+      (license (list license:gpl2
+                     license:perl-license
+                     ;; contrib/irssi-psyc.pl:
+                     license:public-domain
+                     ;; bin/psycplay states AGPL with no version:
+                     license:agpl3+)))))
 
 (define-public libpsyc
   (package
-- 
2.13.4


[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

             reply	other threads:[~2017-08-04  8:58 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-08-04  8:56 ng0 [this message]
2017-08-16 14:38 ` [bug#27944] perl-net-psyc: Update to 1.2 Ricardo Wurmus
2019-02-12 23:23 ` bug#27944: " Leo Famulari

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20170804085656.utv6roedtv5p56bz@abyayala \
    --to=ng0@infotropique.org \
    --cc=27944@debbugs.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/guix.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.