[packages/file] detect perl modules with package version; rel 3
atler
atler at pld-linux.org
Wed Jul 5 14:05:09 CEST 2023
commit e07fd4422f718c1ae128c486a583e591ca44d238
Author: Jan Palus <atler at pld-linux.org>
Date: Wed Jul 5 13:03:17 2023 +0200
detect perl modules with package version; rel 3
submitted upstream in https://bugs.astron.com/view.php?id=464
file.spec | 4 ++-
perl-package-version.patch | 76 ++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 79 insertions(+), 1 deletion(-)
---
diff --git a/file.spec b/file.spec
index 1edd4e7..d06f62a 100644
--- a/file.spec
+++ b/file.spec
@@ -35,7 +35,7 @@ Summary(zh_CN.UTF-8): 判定文件类型的工具。
Summary(zh_TW.UTF-8): 用於決定檔案類型的一個工具程式。
Name: file
Version: 5.44
-Release: 2
+Release: 3
License: distributable
Group: Applications/File
Source0: ftp://ftp.astron.com/pub/file/%{name}-%{version}.tar.gz
@@ -49,6 +49,7 @@ Patch0: searchpath.patch
Patch1: automake.patch
Patch2: %{name}-gettext-no-random-translations.patch
Patch3: name-use-count.patch
+Patch4: perl-package-version.patch
URL: http://www.darwinsys.com/file/
BuildRequires: autoconf >= 2.50
BuildRequires: automake
@@ -290,6 +291,7 @@ Wiązania Pythona 3 do biblioteki libmagic.
%patch1 -p1
%patch2 -p1
%patch3 -p1
+%patch4 -p1
%if "%{_ver_lt '%{cc_version}' '3.4'}" == "1"
%{__sed} -i -e 's,-Wextra,,' configure.ac
diff --git a/perl-package-version.patch b/perl-package-version.patch
new file mode 100644
index 0000000..f8f39bf
--- /dev/null
+++ b/perl-package-version.patch
@@ -0,0 +1,76 @@
+From c5a6327f5c95eae5537f0de8b1b6e62b03146cb1 Mon Sep 17 00:00:00 2001
+From: Jan Palus <jpalus at fastmail.com>
+Date: Wed, 5 Jul 2023 12:09:50 +0200
+Subject: [PATCH 1/2] perl: use [:space:] class instead of fixed spaces
+
+---
+ magic/Magdir/perl | 6 +++---
+ 1 file changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/magic/Magdir/perl b/magic/Magdir/perl
+index c391d4a7..db1d633e 100644
+--- a/magic/Magdir/perl
++++ b/magic/Magdir/perl
+@@ -34,12 +34,12 @@
+ # by Dmitry V. Levin and Alexey Tourbin
+ # check the first line
+ 0 search/8192 package
+->0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *; Perl5 module source text
++>0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*; Perl5 module source text
+ !:strength + 40
+ # not 'p', check other lines
+ 0 search/8192 !p
+->0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *;
+->>0 regex \^1\ *;|\^(use|sub|my)\ .*[(;{=] Perl5 module source text
++>0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*;
++>>0 regex \^1[[:space:]]*;|\^(use|sub|my)[[:space:]].*[(;{=] Perl5 module source text
+ !:strength + 75
+
+ # Perl POD documents
+--
+2.41.0
+
+From b99012a91068e255c2e3fa7c42eafc27dedccdc4 Mon Sep 17 00:00:00 2001
+From: Jan Palus <jpalus at fastmail.com>
+Date: Wed, 5 Jul 2023 12:12:06 +0200
+Subject: [PATCH 2/2] perl: detect files with version after package name
+
+as per https://perldoc.perl.org/functions/package perl allows to give
+version after package name so in addition to:
+
+package <package-name>;
+
+add support for detecting:
+
+package <package-name> <version>;
+
+where <version> is version string consisting of numbers and dotts,
+optionally prefixed with 'v'. Examples:
+
+1.2.3
+v1.0
+---
+ magic/Magdir/perl | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/magic/Magdir/perl b/magic/Magdir/perl
+index db1d633e..d4e8080e 100644
+--- a/magic/Magdir/perl
++++ b/magic/Magdir/perl
+@@ -34,11 +34,11 @@
+ # by Dmitry V. Levin and Alexey Tourbin
+ # check the first line
+ 0 search/8192 package
+->0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*; Perl5 module source text
++>0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*([[:space:]]v?[0-9][0-9.]*)?[[:space:]]*; Perl5 module source text
+ !:strength + 40
+ # not 'p', check other lines
+ 0 search/8192 !p
+->0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*;
++>0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*([[:space:]]v?[0-9][0-9.]*)?[[:space:]]*;
+ >>0 regex \^1[[:space:]]*;|\^(use|sub|my)[[:space:]].*[(;{=] Perl5 module source text
+ !:strength + 75
+
+--
+2.41.0
+
================================================================
---- gitweb:
http://git.pld-linux.org/gitweb.cgi/packages/file.git/commitdiff/e07fd4422f718c1ae128c486a583e591ca44d238
More information about the pld-cvs-commit
mailing list