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
|
package Module::Install::Admin::Compiler;
use strict;
use Module::Install::Base;
use File::Remove ();
use Devel::PPPort ();
use vars qw{$VERSION @ISA};
BEGIN {
$VERSION = '1.06';
@ISA = qw{Module::Install::Base};
}
sub ppport {
my $self = shift;
my $file = shift || 'ppport.h';
if ( -f $file ) {
# Update the file to a newer version
File::Remove::remove($file);
}
# Install the file (and remove on realclean)
Devel::PPPort::WriteFile( $file ) or die "Failed to write $file";
$self->realclean_files( $file );
}
1;
|
