upgpkg: perl-file-dirlist 0.05-2

- Fix directory listing test as per request.

3 files changed, 29 insertions, 4 deletions

diff --git a/.SRCINFO b/.SRCINFO
index 74091fcbbea8..26ce57ade25f 100644
--- a/.SRCINFO
+++ b/.SRCINFO
@@ -1,7 +1,7 @@
 pkgbase = perl-file-dirlist
 	pkgdesc = File::DirList - provide a sorted list of directory content
 	pkgver = 0.05
-	pkgrel = 1
+	pkgrel = 2
 	url = https://metacpan.org/release/File-DirList
 	arch = any
 	license = GPL
@@ -10,6 +10,8 @@ pkgbase = perl-file-dirlist
 	options = !emptydirs
 	options = purge
 	source = https://cpan.metacpan.org/authors/id/T/TP/TPABA/File-DirList/File-DirList-0.05.tar.gz
+	source = tests_use_licenses_dir.patch
 	sha256sums = 993b7d7662e55798448a1edaccb9abd281d2bd23be7eab99f569b8e2962d3bc3
+	sha256sums = 7d7c03da3f11c7ea1007fdf08a34b04feb9f4256688dd17fed53e7520b9f69b2
 
 pkgname = perl-file-dirlist
diff --git a/PKGBUILD b/PKGBUILD
index dc026d669013..561565a17d1d 100644
--- a/PKGBUILD
+++ b/PKGBUILD
@@ -3,7 +3,7 @@
 _dist=File-DirList
 pkgname=perl-file-dirlist
 pkgver=0.05
-pkgrel=1
+pkgrel=2
 pkgdesc='File::DirList - provide a sorted list of directory content'
 arch=('any')
 url="https://metacpan.org/release/$_dist"
@@ -12,8 +12,17 @@ license=('GPL' 'PerlArtistic')
 depends=(perl)
 options=('!emptydirs' purge)
 _author_id='TPABA'
-source=("https://cpan.metacpan.org/authors/id/${_author_id::1}/${_author_id::2}/$_author_id/$_dist/$_dist-$pkgver.tar.gz")
-sha256sums=('993b7d7662e55798448a1edaccb9abd281d2bd23be7eab99f569b8e2962d3bc3')
+source=("https://cpan.metacpan.org/authors/id/${_author_id::1}/${_author_id::2}/$_author_id/$_dist/$_dist-$pkgver.tar.gz"
+        "tests_use_licenses_dir.patch")
+sha256sums=('993b7d7662e55798448a1edaccb9abd281d2bd23be7eab99f569b8e2962d3bc3'
+            '7d7c03da3f11c7ea1007fdf08a34b04feb9f4256688dd17fed53e7520b9f69b2')
+
+prepare() {
+  cd "$srcdir/$_dist-$pkgver"
+  # Arch tweaked version of:
+  # https://sources.debian.org/data/main/libf/libfile-dirlist-perl/0.05-3/debian/patches/home-dir-to-common-licenses.patch
+  patch -Np1 -i "$srcdir/tests_use_licenses_dir.patch"
+}
 
 build() {
   cd "$srcdir/$_dist-$pkgver"
diff --git a/tests_use_licenses_dir.patch b/tests_use_licenses_dir.patch
new file mode 100644
index 000000000000..e6353f7d2f19
--- /dev/null
+++ b/tests_use_licenses_dir.patch
@@ -0,0 +1,14 @@
+diff -ur a/t/File-DirList.t b/t/File-DirList.t
+--- a/t/File-DirList.t	2024-04-02 19:23:53.427466559 +0200
++++ b/t/File-DirList.t	2024-04-02 19:24:50.741155420 +0200
+@@ -13,8 +13,8 @@
+ # Insert your test code below, the Test::More module is use()ed here so read
+ # its man page ( perldoc Test::More ) for help writing this test script.
+ 
+-my $homeDir = ( "\L$^O" =~ m/win32/ ) ? '.' : glob('~');
+-print STDERR ("\nListing your home dir '$homeDir' for test purposes\n");
++my $homeDir = '/usr/share/licenses';
++print STDERR ("\nListing your licenses dir '$homeDir' for test purposes\n");
+ foreach my $item (@{File::DirList::list($homeDir, 'din', "\L$^O" =~ m/win32/ ? 1 : 0, 1, 1)})
+ 	{ print STDERR (sprintf("%s'%s'%s\n", ($item->[14] ? 'dir  ' : 'file '), $item->[13], (!$item->[15] ? '' : ($item->[15] < 0 ? ' bad' : '').' link to \''.$item->[16].'\''))); };
+ ok("listing completed");