Attachment 158134 Details for Bug 35196 – Bug 35196: Remove misc/perlmodule_* scripts

[patch] Bug 35196: Remove misc/perlmodule_* scripts

Bug-35196-Remove-miscperlmodule-scripts.patch (text/plain), 1.66 KB, created by Jonathan Druart on 2023-10-31 14:52:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2023-10-31 14:52:09 UTC

Size: 1.66 KB

patch

obsolete

>From 5c06f5b8516bed62efd17953e9b1c8bbd3230c62 Mon Sep 17 00:00:00 2001
>From: Katrin Fischer <katrin.fischer.83@web.de>
>Date: Tue, 31 Oct 2023 10:14:18 +0000
>Subject: [PATCH] Bug 35196: Remove misc/perlmodule_* scripts
>
>These scripts are outdated and no longer needed in
>the codebase.
>
>To test:
>* Verify both perlmodule_* scripts have been removed from misc/
>
>Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>---
> misc/perlmodule_ls.pl | 12 ------------
> misc/perlmodule_rm.pl | 22 ----------------------
> 2 files changed, 34 deletions(-)
> delete mode 100755 misc/perlmodule_ls.pl
> delete mode 100755 misc/perlmodule_rm.pl
>
>diff --git a/misc/perlmodule_ls.pl b/misc/perlmodule_ls.pl
>deleted file mode 100755
>index d381b6ee629..00000000000
>--- a/misc/perlmodule_ls.pl
>+++ /dev/null
>@@ -1,12 +0,0 @@
>-#!/usr/bin/perl
>-
>-use strict;
>-use warnings;
>-
>-use ExtUtils::Installed;
>-
>-my $instmod = ExtUtils::Installed->new();
>-foreach my $module ($instmod->modules()) {
>-    my $version = $instmod->version($module) || "???";
>-    print "$module -- $version\n";
>-}
>diff --git a/misc/perlmodule_rm.pl b/misc/perlmodule_rm.pl
>deleted file mode 100755
>index f5735ac4d26..00000000000
>--- a/misc/perlmodule_rm.pl
>+++ /dev/null
>@@ -1,22 +0,0 @@
>-#!/usr/bin/perl
>-
>-# Remove a perl module
>-
>-use Modern::Perl;
>-use ExtUtils::Packlist;
>-use ExtUtils::Installed;
>-
>-$ARGV[0] or die "Usage: $0 Module::Name\n";
>-
>-my $mod = $ARGV[0];
>-
>-my $inst = ExtUtils::Installed->new();
>-
>-foreach my $item (sort($inst->files($mod))) {
>-    print "removing $item\n";
>-    unlink $item;
>-}
>-
>-my $packfile = $inst->packlist($mod)->packlist_file();
>-print "removing $packfile\n";
>-unlink $packfile;
>-- 
>2.34.1

Actions: View | Diff | Splinter Review

Attachments on bug 35196: 158110 | 158134 | 158293