view release on metacpan or  search on metacpan

inc/Module/Install/XSUtil.pm  view on Meta::CPAN

529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
    }
    elsif(@_ == 1 && ref($_[0]) eq 'HASH'){
        $h_files = $_[0];
    }
    else{
        $h_files = +{ map{ $_ => undef } @_ };
    }
 
    $self->_xs_initialize();
 
    my @not_found;
    my $h_map = $self->{xsu_header_map} || {};
 
    while(my($ident, $path) = each %{$h_files}){
        $path ||= $h_map->{$ident} || File::Spec->join('.', $ident);
        $path   = File::Spec->canonpath($path);
 
        unless($path && -e $path){
            push @not_found, $ident;
            next;
        }
 
        $ToInstall{$path} = File::Spec->join('$(INST_ARCHAUTODIR)', $ident);
 
        _verbose "install: $path as $ident" if _VERBOSE;
        my @funcs = $self->_extract_functions_from_header_file($path);
        if(@funcs){
            $self->cc_append_to_funclist(@funcs);
        }
    }
 
    if(@not_found){
        die "Header file(s) not found: @not_found\n";
    }
 
    return;
}
 
my $home_directory;
 
sub _extract_functions_from_header_file{
    my($self, $h_file) = @_;