From 48fbc777c823d00e43c5cae48faf750b50420b7f Mon Sep 17 00:00:00 2001 From: Katrin Fischer 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/ --- 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 d381b6ee62..0000000000 --- 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 f5735ac4d2..0000000000 --- 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.30.2