]> git.koha-community.org Git - koha.git/blob - misc/perlmodule_rm.pl
Bug 7310: DB revision for Improving list permissions
[koha.git] / misc / perlmodule_rm.pl
1 #!/usr/bin/perl
2
3 # Remove a perl module
4
5 use warnings;
6 use ExtUtils::Packlist;
7 use ExtUtils::Installed;
8
9 $ARGV[0] or die "Usage: $0 Module::Name\n";
10
11 my $mod = $ARGV[0];
12
13 my $inst = ExtUtils::Installed->new();
14
15 foreach my $item (sort($inst->files($mod))) {
16     print "removing $item\n";
17     unlink $item;
18 }
19
20 my $packfile = $inst->packlist($mod)->packlist_file();
21 print "removing $packfile\n";
22 unlink $packfile;