On Fri, 4 Oct 2002, Brian Ingerson wrote:

> I don't know what's happening here. Could you put a short failing test
> on the wiki site?

First up, I got scared by the wiki and the YAML and the YAML and the wiki.  
Can we use RT?

Anyway, I narrowed down the problem to declaring a second "use Inline"  
block in the same module.  This code is online at
http://2shortplanks.com/temp/testcase.tar.gz

== Code ==

package Foo;

our $VERSION = 1.01;

use strict;
use warnings;

use Inline 'C' => <<'END_OF_C', VERSION => 1.01, NAME => __PACKAGE__;

SV* foo(SV* string)
{
  return newSVpvf("You passed '%s'",SvPV(string,PL_na));
}

END_OF_C

use Inline 'C' => <<'END_OF_C', VERSION => 1.01, NAME => __PACKAGE__;

 /* as soon as a second C block is created we get all
    kinds of hell breaking loose */

END_OF_C

1;

== Test ==

#!/usr/bin/perl

use Test::More tests => 1;

use Foo;
is(Foo::foo("hello"),"You passed 'hello'","can call foo");

== Failing output ==

t/01basic....Can't locate auto/Foo/foo.al in @INC (@INC contains: ...

==

I only seem to have a blib/arch/auto/Foo/Foo.so file.

Mark.

-- 
s''  Mark Fowler                                     London.pm   Bath.pm
     http://www.twoshortplanks.com/              [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print$t->Tputs(cl);for$w(split/  +/
){for(0..30){$|=print$t->Tgoto(cm,$_,$y)." $w";select$k,$k,$k,.03}$y+=2}

Reply via email to