Juergen Boemmels wrote:
>
> "Vladimir Lipskiy" <[EMAIL PROTECTED]> writes:
>
> [...]
>
> > sub runstep {
> > my $inc = 'include/parrot';
> >
> > my @headers=(
> > sort
> > map { m{\./$inc/(.*)} }
> > glob "./$inc/*.h"
> > );
>
> in a non clean tree the generated files are picked up also.
>
> > $_ = "\$(INC)/$_" for @headers;
> > my $nongen_headers = join("\\\n ", @headers);
>
> So the name nongen_headers is worng here
>
> > Configure::Data->set(
> > inc => $inc,
> > nongen_headers => $nongen_headers,
> > );
> > }
>
> Non-generated headers should be found in MANIFEST so using maniread
> might help here
>
> use ExtUtils::Manifest qw(maniread);
>
> my $inc = 'include/parrot';
>
> my @headers=(
> sort
> map { m{$inc/(.*)} }
> keys %{maniread()}
> );
ITYM:
> my @headers=(
> sort
> map { m{^$inc/(.*\.h)\z} }
> keys %{maniread()}
> );
Otherwise, someone might at some future date, write:
langauges/mylang/include/parrot/oops.txt
And that would get picked up ;)
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "[EMAIL PROTECTED]
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
