# from Ingy dot Net
# on Thursday 17 November 2005 11:19 am:
>3) Fix any bugs that have accumulated in the last 3 years.
Yeah. I've had 0.45 in my /svn/ since Oct 2004 :-)
Inline::CPP calls Inline::C::validate() twice and this kills the
existing INC values. Thus, validate should either slap the caller or
be allowed to run twice. Patch below.
--Eric
--
A counterintuitive sansevieria trifasciata was once literalized
guiltily.
--Product of Artificial Intelligence
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
Index: Inline-C/Inline/C.pm
===================================================================
--- Inline-C/Inline/C.pm (revision 295)
+++ Inline-C/Inline/C.pm (revision 572)
@@ -1,5 +1,5 @@
package Inline::C;
-$VERSION = '0.44';
+$VERSION = '0.45';
use strict;
require Inline;
@@ -43,7 +43,8 @@
$o->{ILSM}{MAKEFILE} ||= {};
if (not $o->UNTAINT) {
require FindBin;
- $o->{ILSM}{MAKEFILE}{INC} = "-I$FindBin::Bin";
+ ($o->{ILSM}{MAKEFILE}{INC} =~ m/-I$FindBin::Bin/) or
+ ($o->{ILSM}{MAKEFILE}{INC} = "-I$FindBin::Bin");
}
$o->{ILSM}{AUTOWRAP} = 0 if not defined $o->{ILSM}{AUTOWRAP};
$o->{ILSM}{XSMODE} = 0 if not defined $o->{ILSM}{XSMODE};
