queue.scm: Add perl-tidy and perl-b-lint

2 files changed, 129 insertions, 0 deletions

diff --git a/src/xyz/euandreh/patches/B-Lint-1.20-Skip-a-bare-sub-test.patch b/src/xyz/euandreh/patches/B-Lint-1.20-Skip-a-bare-sub-test.patch
new file mode 100644
index 0000000..c74e2ab
--- /dev/null
+++ b/src/xyz/euandreh/patches/B-Lint-1.20-Skip-a-bare-sub-test.patch
@@ -0,0 +1,68 @@
+From d350b6338066d2563b4abacf1eb7da56c5264b22 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Fri, 12 Jun 2015 13:27:07 +0200
+Subject: [PATCH] Skip a bare-sub test
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Perl 5.22 optimization causes B::Lint not to recognize $a{b} for
+bare-sub check. This patch document this deficency and skips a test
+for it.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ lib/B/Lint.pm |  4 ++++
+ t/lint.t      | 11 +++++++++--
+ 2 files changed, 13 insertions(+), 2 deletions(-)
+
+diff --git a/lib/B/Lint.pm b/lib/B/Lint.pm
+index 1f5098f..7291b18 100644
+--- a/lib/B/Lint.pm
++++ b/lib/B/Lint.pm
+@@ -85,6 +85,10 @@ trap are:
+ 
+ Neither of these will do what a naive user would expect.
+ 
++Notice: Perl 5.22.0 does not report C<foo> in C<$b{foo}> as BARE token
++anymore. Therefore L<B::Lint> test is not reliable here. See
++L<CPAN RT#101115|https://rt.cpan.org/Public/Bug/Display.html?id=101115>.
++
+ =item B<dollar-underscore>
+ 
+ This option warns whenever C<$_> is used either explicitly anywhere or
+diff --git a/t/lint.t b/t/lint.t
+index 7317b1d..93255d9 100644
+--- a/t/lint.t
++++ b/t/lint.t
+@@ -14,7 +14,7 @@ BEGIN {
+ use strict;
+ use warnings;
+ 
+-plan tests => 29;
++plan tests => 30;
+ 
+ # Runs a separate perl interpreter with the appropriate lint options
+ # turned on
+@@ -116,10 +116,17 @@ RESULT
+ 
+ runlint 'bare-subs', 'sub bare(){1};$x=bare', '';
+ 
+-runlint 'bare-subs', 'sub bare(){1}; $x=[bare=>0]; $x=$y{bare}', <<'RESULT';
++runlint 'bare-subs', 'sub bare(){1}; $x=[bare=>0]', <<'RESULT';
+ Bare sub name 'bare' interpreted as string at -e line 1
++RESULT
++
++SKIP: {
++    skip 'Perl 5.22 stopped marking $hash{bare} as BARE word, CPAN RT#101115',
++        1, if $] >= 5.022;
++    runlint 'bare-subs', 'sub bare(){1}; $x=$y{bare}', <<'RESULT';
+ Bare sub name 'bare' interpreted as string at -e line 1
+ RESULT
++}
+ 
+ {
+ 
+-- 
+2.1.0
+
diff --git a/src/xyz/euandreh/queue.scm b/src/xyz/euandreh/queue.scm
new file mode 100644
index 0000000..be155d7
--- /dev/null
+++ b/src/xyz/euandreh/queue.scm
@@ -0,0 +1,61 @@
+(define-module (xyz euandreh queue)
+  #:use-module (srfi srfi-26)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system perl)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages perl-check))
+
+(define-public perl-tidy
+  (package
+    (name "perl-tidy")
+    (version "20210111")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (string-append "mirror://cpan/authors/id/S/SH/SHANCOCK/Perl-Tidy-"
+                          version ".tar.gz"))
+      (sha256
+       (base32
+        "17qqvass1n726ff1bkl8pc8yijhjy9vlm3wcc1xaykjxmz76cxi0"))))
+    (build-system perl-build-system)
+    (home-page "https://perltidy.github.io/perltidy/")
+    (synopsis "Indent and reformat Perl code")
+    (description "Perl::Tidy is a module and command-line utility to
+indent and format Perl code.")
+    (license license:gpl2)))
+
+(define-public perl-b-lint
+  (package
+    (name "perl-b-lint")
+    (version "1.20")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/B-Lint-"
+                          version ".tar.gz"))
+      (sha256
+       (base32
+        "1cqhgj17jqlrwdw2lz2sprs2zydry09y14lwhmipk2zxcj4l0jfw"))
+      (patches
+       ;; Taken from:
+       ;; https://rt.cpan.org/Public/Bug/Display.html?id=101115
+       (search-patches "xyz/euandreh/patches/B-Lint-1.20-Skip-a-bare-sub-test.patch"))))
+    (build-system perl-build-system)
+    (native-inputs
+     `(("perl-test-harness" ,perl-test-harness)))
+    (propagated-inputs
+     `(("perl-module-pluggable" ,perl-module-pluggable)))
+    (home-page "https://metacpan.org/pod/B::Lint")
+    (synopsis "Simple linter for Perl source code")
+    (description "The B::Lint module is equivalent to an extended
+version of the -w option of perl.  It is named after the program lint
+which carries out a similar process for C programs.")
+    (license license:perl-license)))
+
+
+(list
+ perl-tidy
+ perl-b-lint)