randyk 2003/06/11 22:55:32
Modified: build xsbuilder.pl
Log:
Reviewed by: joes
For Win32,
- ensure cwd is a long path name, in order to get the base directory
- obtain the Apache include and lib directories without relying on
a config.status
- adjust the library locations and names for WriteMakefile
Revision Changes Path
1.6 +26 -9 httpd-apreq-2/build/xsbuilder.pl
Index: xsbuilder.pl
===================================================================
RCS file: /home/cvs/httpd-apreq-2/build/xsbuilder.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- xsbuilder.pl 10 Jun 2003 14:43:10 -0000 1.5
+++ xsbuilder.pl 12 Jun 2003 05:55:32 -0000 1.6
@@ -8,9 +8,12 @@
use warnings FATAL => 'all';
use Apache2;
use Apache::Build;
+require Win32 if Apache::Build::WIN32;
use Cwd;
-cwd =~ m{^(.+httpd-apreq-2)} or die "Can't find base cvs directory";
+my $cwd = Apache::Build::WIN32 ?
+ Win32::GetLongPathName(cwd) : cwd;
+$cwd =~ m{^(.+httpd-apreq-2)} or die "Can't find base cvs directory";
my $base_dir = $1;
my $src_dir = "$base_dir/src";
my $xs_dir = "$base_dir/glue/perl/xsbuilder";
@@ -20,13 +23,27 @@
read $file, $_[0], -s $file;
}
May I suggest using FindBin here? You don't need special WIN32 case if you do that, I think.
use FindBin; $FindBin::Bin =~ /httpd-apreq-2/ or die "Can't find base cvs directory";
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
