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; +}