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