perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/ModPerl/Const .cvsignore Makefile.PL
Date Sun, 21 Oct 2001 23:01:54 GMT
dougm       01/10/21 16:01:54

  Modified:    xs/ModPerl/Const .cvsignore Makefile.PL
  Log:
  avoid using symlink (not supported on win32)
  
  Revision  Changes    Path
  1.2       +1 -1      modperl-2.0/xs/ModPerl/Const/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Const/.cvsignore,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- .cvsignore	2001/04/12 00:30:07	1.1
  +++ .cvsignore	2001/10/21 23:01:54	1.2
  @@ -1,4 +1,4 @@
   Makefile
   pm_to_blib
  -Const.c
  +*.c
   Const.bs
  
  
  
  1.2       +11 -6     modperl-2.0/xs/ModPerl/Const/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Const/Makefile.PL,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- Makefile.PL	2001/04/11 22:53:14	1.1
  +++ Makefile.PL	2001/10/21 23:01:54	1.2
  @@ -1,22 +1,27 @@
   use lib qw(../lib);
   use ModPerl::MM ();
  -use File::Basename;
   
   my $srcdir = '../../../src/modules/perl';
   #link these two into Const.so so constants can be used outside of httpd
   my @names = map { "modperl_$_" } qw(const constants);
  -my @obj;
  +my(@obj, @clean, %src);
   
   for (@names) {
  -    my $srcfile = join '.', "$srcdir/$_", 'c';
  -    my $lnfile = join '.', $_, 'c';
       push @obj, join '.', $_, 'o';
  -    unlink $lnfile;
  -    symlink $srcfile, $lnfile;
  +    my $cfile = join '.', $_, 'c';
  +    push @clean, $cfile;
  +    $src{$cfile} = "$srcdir/$cfile";
   }
   
   ModPerl::MM::WriteMakefile(
       NAME => 'ModPerl::Const',
       VERSION_FROM => 'Const.pm',
       OBJECT => "Const.o @obj",
  +    clean => { FILES => "@clean" },
   );
  +
  +sub MY::postamble {
  +    join '', map {
  +        "$_: $src{$_}\n\t\$(CP) $src{$_} .\n";
  +    } keys %src;
  +}
  
  
  

Mime
View raw message