1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
package Module::Install::RTx::Remove;
use base 'Exporter';
our @EXPORT = qw/RTxRemove/;
use strict;
=head1 NAME
Module::Install::RTx::Remove - RT extension installer (remove files)
=head1 DESCRIPTION
Remove specified files. Intended to remove files
from previously installed versions when upgrading
code in place.
=head1 USAGE
perl -MModule::Install::RTx::Remove -e "RTxRemove([q(/full/dir/path/file_to_remove)])"
=head1 METHODS
=head2 RTxRemove
Removes specified files.
Accepts: Arrayref of files to remove. Files should have a full
directory path.
=cut
sub RTxRemove {
my $remove_files = shift;
# Trying the naive unlink first. If issues are reported,
# look at ExtUtils::_unlink_or_rename for more cross-platform options.
foreach my $file (@$remove_files){
next unless -e $file;
print "Removing $file\n";
unlink($file) or warn "Could not unlink $file: $!";
}
}
|
