Sadly, there doesn't seem to be a good way to figure out of something is a path
in the first place. Don't want to put `pwd` in front of every single argument
that doesn't start with '/'
So, this just attempts to clean MP_APXS.
--
Philippe M. Chiasson <[EMAIL PROTECTED]>
Extropia's Resident System Guru
http://www.eXtropia.com/
When you rewrite a compiler from scratch, you sometimes fix
things you didn't know were broken.
-- Larry Wall
perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl
Hacker!\n$/&&print||$$++&&redo}'
Index: lib/ModPerl/BuildOptions.pm
===================================================================
RCS file: /home/anoncvs/mod_perl-2-cvs/lib/ModPerl/BuildOptions.pm,v
retrieving revision 1.8
diff -u -I'$Id' -I'$Revision' -r1.8 BuildOptions.pm
--- lib/ModPerl/BuildOptions.pm 2001/04/27 21:07:53 1.8
+++ lib/ModPerl/BuildOptions.pm 2001/09/08 08:13:20
@@ -8,6 +8,8 @@
use constant VERBOSE => 1;
use constant UNKNOWN_FATAL => 2;
+use File::Spec;
+
sub init {
my($self, $build) = @_;
@@ -54,6 +56,11 @@
my $usage = usage();
die "Unknown Option: $key\nUsage:\n$usage";
}
+
+ if($key eq 'MP_APXS') {
+ $val = File::Spec->canonpath(File::Spec->rel2abs($val));
+ }
+
if ($self->{$key}) {
$self->{$key} .= ' ';
}
PGP signature
