view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 Other:
 - Removed PERL_CORE specific @INC manipulation (no longer needed)
   [Nicholas Clark]
 - Changed hard-coded $^H manipulation in favor of "use re 'eval'"
   [Nicholas Clark]

2.200402 - Fri Oct  2 01:26:40 EDT 2009

 Bug fixes:
 - UNITCHECK subroutines were not being called (detected in ext/XS-APItest
   in Perl blead) [reported by Jesse Vincent, patched by David Golden]

2.200401 - Mon Sep 14 22:26:03 EDT 2009

 - No changes from 2.20_04.


2.20_04 - Mon Aug 10 11:18:47 EDT 2009

 Bug fixes:

Changes  view on Meta::CPAN

 - Allow (pedantically correct) C pre-processor comments in the code
   snippets of typemap files. [Nicholas Clark]

2.19 - Sun Feb 17 14:27:40 2008

 - Fixed the treatment of the OVERLOAD: keyword, which was causing a C
   compile error. [Toshiyuki Yamato]

2.18 - Mon Jan 29 20:56:36 2007

 - Added some UNITCHECK stuff, which (I think) makes XS code able to
   do UNITCHECK blocks. [Nicholas Clark]

 - Changed 'use re "eval";' to 'BEGIN { $^H |= 0x00200000 };' so we
   can compile re.xs in bleadperl. [Yves Orton]

 - Fix an undefined-variable warning related to 'inout' parameter
   processing.

2.17 - Mon Nov 20 17:07:27 2006

 - Stacked $filepathname to make #line directives in #INCLUDEs work.

lib/ExtUtils/ParseXS.pm  view on Meta::CPAN

  # current foo.c line from the foo.xs part where the BOOT: code was.

  if (@{ $self->{bootcode_later} }) {
    print "\n    /* Initialisation Section */\n\n";
    print @{$self->{bootcode_later}};
    print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n"
      if $self->{config_WantLineNumbers};
    print "\n    /* End of Initialisation Section */\n\n";
  }

  # Emit code to call any UNITCHECK blocks and return true. Since 5.22,
  # this is been put into a separate function.
  print Q(<<'EOF');
    |#if PERL_VERSION_LE(5, 21, 5)
    |#  if PERL_VERSION_GE(5, 9, 0)
    |    if (PL_unitcheckav)
    |        call_list(PL_scopestack_ix, PL_unitcheckav);
    |#  endif
    |    XSRETURN_YES;
    |#else
    |    Perl_xs_boot_epilog(aTHX_ ax);