local-lib5/lib/perl5/Module/Install/Admin/Compiler.pm

   1 package Module::Install::Admin::Compiler;
   2
   3 use strict;
   4 use Module::Install::Base;
   5 use File::Remove  ();
   6 use Devel::PPPort ();
   7
   8 use vars qw{$VERSION @ISA};
   9 BEGIN {
  10         $VERSION = '0.91';;
  11         @ISA     = qw{Module::Install::Base};
  12 }
  13
  14 sub ppport {
  15         my $self   = shift;
  16         my $file   = shift || 'ppport.h';
  17         if ( -f $file ) {
  18                 # Update the file to a newer version
  19                 File::Remove::remove($file);
  20         }
  21
  22         # Install the file (and remove on realclean)
  23         Devel::PPPort::WriteFile( $file ) or die "Failed to write $file";
  24         $self->realclean_files( $file );
  25 }
  26
  27 1;