view release on metacpan or  search on metacpan

xsub.pm  view on Meta::CPAN

  my $cmd =
    "$C{cc} $C{ccflags} -O3 $C{cccdlflags} " .
    "-I$C{archlib}/CORE $C{lddlflags} -o $so $c";
  my $x = system $cmd;
  $x and die;
  -e $so or die;
}

sub bootstrap {
  my $p = shift;
  my ($q, $qpm) = (caller)[0, 1];
  my ($qc, $qso);

  local *XSUB  = \@{$XSUB{$qpm}};
  defined @XSUB or return;

  -e $qpm or die;
  $qpm =~ m/\.pm$/ or die;
  ($qc =  $qpm) =~ s/\.pm$/\.c/ or die;
  ($qso = $qpm) =~ s/\.pm$/\.so/ or die;