[PATCH] Inline 0.43 and -Dversiononly problem

[Rafael Garcia-Suarez]

Hi, I located a problem : the Inline module won't work with a Perl
configured with the -Dversiononly Configure symbol.

That's because it uses $Config{perlpath}, which has a buggy value :
it points to /your/path/to/perl instead of /your/path/to/perl5.6.1
(with -Dversiononly, all the programs installed have a trailing version
number).

The problem with $Config{perlpath} will be fixed in perl 5.8.0, but
for older perls, I suggest to fall back to $^X.

The following patch implements this.


--- Inline-0.43/C/C.pm.orig     Sun Jul 22 17:09:35 2001
+++ Inline-0.43/C/C.pm  Wed Dec 12 11:01:46 2001
@@ -656,6 +656,7 @@
       @{$o->{API}}{qw(module modpname modfname build_dir install_lib)};
 
     -f ($perl = $Config::Config{perlpath})
+      or -f ($perl = $^X)
       or croak "Can't locate your perl binary";
     $make = $o->{ILSM}{MAKE} || $Config::Config{make}
       or croak "Can't locate your make binary";
--- Inline-0.43/Inline.pm.orig  Sun Jul 22 10:00:24 2001
+++ Inline-0.43/Inline.pm       Wed Dec 12 11:02:38 2001
@@ -660,6 +660,7 @@
     if (defined $o) {
        ($dir) = $dir =~ /(.*)/s if UNTAINT;
        my $perl = $Config{perlpath};
+       $perl = $^X unless -f $perl;
        ($perl) = $perl =~ /(.*)/s if UNTAINT;
        local $ENV{PERL5LIB} if defined $ENV{PERL5LIB};
        local $ENV{PERL5OPT} if defined $ENV{PERL5OPT};