perl can't find more utils

perl can't find more utils

[jgart]

Hi Guixers,

This package fails to find moreutils:

https://git.sr.ht/~whereiseveryone/guixrus/tree/master/item/guixrus/packages/misc.scm#L1293

```
Can't locate List/MoreUtils.pm in @INC (you may need to install the List::MoreUtils module) (@INC contains: /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/site_perl/5.34.0/x86_64-linux-thread-multi /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/site_perl/5.34.0 /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/5.34.0/x86_64-linux-thread-multi /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/5.34.0) at /home/jgart/.guix-profile/bin/guitar-scale-chart line 4.
BEGIN failed--compilation aborted at /home/jgart/.guix-profile/bin/guitar-scale-chart line 4.
```

Any suggestions as to what might be off?

any help is much appreciated,

jgart

Re: perl can't find more utils

[Efraim Flashner]

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

On Tue, Jun 21, 2022 at 10:30:36PM -0500, jgart wrote:
> Hi Guixers,
> 
> This package fails to find moreutils:
> 
> https://git.sr.ht/~whereiseveryone/guixrus/tree/master/item/guixrus/packages/misc.scm#L1293
> 
> ```
> Can't locate List/MoreUtils.pm in @INC (you may need to install the List::MoreUtils module) (@INC contains: /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/site_perl/5.34.0/x86_64-linux-thread-multi /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/site_perl/5.34.0 /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/5.34.0/x86_64-linux-thread-multi /gnu/store/hy6abswwv4d89zp464fw52z65fkzr7h5-perl-5.34.0/lib/perl5/5.34.0) at /home/jgart/.guix-profile/bin/guitar-scale-chart line 4.
> BEGIN failed--compilation aborted at /home/jgart/.guix-profile/bin/guitar-scale-chart line 4.
> ```
> 
> Any suggestions as to what might be off?
> 
> any help is much appreciated,
> 
> jgart

Have you tried adding perl-list-moreutils to the package definition?

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

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

Re: perl can't find more utils

[jgart]

On Wed, 22 Jun 2022 10:22:32 +0300 Efraim Flashner <efraim@flashner.co.il> wrote:

> Have you tried adding perl-list-moreutils to the package definition?

Hi Efraim,

Yes, I tried also and it still fails to find it.

wdyt

Re: perl can't find more utils

[Efraim Flashner]

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

On Wed, Jun 22, 2022 at 11:23:54PM -0500, jgart wrote:
> On Wed, 22 Jun 2022 10:22:32 +0300 Efraim Flashner <efraim@flashner.co.il> wrote:
> 
> > Have you tried adding perl-list-moreutils to the package definition?
> 
> Hi Efraim,
> 
> Yes, I tried also and it still fails to find it.
> 
> wdyt

Looks like you forgot to wrap the executable. Try the attached diff.

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #1.2: guitar-scale-chart.diff --]
[-- Type: text/plain, Size: 1603 bytes --]

diff --git a/guixrus/packages/misc.scm b/guixrus/packages/misc.scm
index d6cbba9..9269830 100644
--- a/guixrus/packages/misc.scm
+++ b/guixrus/packages/misc.scm
@@ -52,6 +52,7 @@
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages groff)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages guile)
   #:use-module (gnu packages haskell-xyz)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages mercury)
@@ -1306,9 +1307,22 @@ mouse hovers a specific date.  Else, it shows the event for the current week.")
                  (base32
                   "1ms34r7h78mv8v8z9n5dhwnlz61ckgjby962kv0mz40vhb47yv3h"))))
       (build-system perl-build-system)
-      (propagated-inputs
-        (list perl-list-allutils ; fails to find moreutils
-              perl-term-ansicolor))
+      (arguments
+       (list
+         #:phases
+         #~(modify-phases %standard-phases
+             (add-after 'install 'wrap-program
+               (lambda* (#:key outputs #:allow-other-keys)
+                 (let* ((out   (assoc-ref outputs "out"))
+                        (bin   (string-append out "/bin"))
+                        (path  (getenv "PERL5LIB")))
+                   (wrap-script (string-append bin "/guitar-scale-chart")
+                    `("PERL5LIB" ":" prefix (,path)))))))))
+      (inputs
+       (list perl-list-allutils
+             perl-term-ansicolor))
+      (native-inputs
+       (list guile-3.0))
       (home-page "https://github.com/jgarte/guitar-scale-chart/")
       (synopsis "Pretty guitar scales in your terminal")
       (description

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