In perl.git, the branch khw/ebcdic has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e1ad9cce1c1c493cf4effa81d97239cea4c375ff?hp=d2daeb327e09c17980215450b7658bff898278a1>
- Log ----------------------------------------------------------------- commit e1ad9cce1c1c493cf4effa81d97239cea4c375ff Author: Karl Williamson <pub...@khwilliamson.com> Date: Sun Mar 10 13:11:07 2013 -0600 XXX Temporary comment out ParseXS check this is to get things to compile for now M dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm commit 95c7bb5f8fb816d72cee725f5560b9476d90042b Author: Karl Williamson <pub...@khwilliamson.com> Date: Sun Mar 10 11:34:10 2013 -0600 XXX Collate, Normalize: Allow to compile under EBCDIC M cpan/Unicode-Collate/Collate.pm M cpan/Unicode-Normalize/Normalize.pm ----------------------------------------------------------------------- Summary of changes: cpan/Unicode-Collate/Collate.pm | 2 +- cpan/Unicode-Normalize/Normalize.pm | 2 +- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cpan/Unicode-Collate/Collate.pm b/cpan/Unicode-Collate/Collate.pm index 4a1c837..8f31e09 100644 --- a/cpan/Unicode-Collate/Collate.pm +++ b/cpan/Unicode-Collate/Collate.pm @@ -2,7 +2,7 @@ package Unicode::Collate; BEGIN { unless ("A" eq pack('U', 0x41)) { - die "Unicode::Collate cannot stringify a Unicode code point\n"; + #die "Unicode::Collate cannot stringify a Unicode code point\n"; } } diff --git a/cpan/Unicode-Normalize/Normalize.pm b/cpan/Unicode-Normalize/Normalize.pm index d0f35a9..da294c3 100644 --- a/cpan/Unicode-Normalize/Normalize.pm +++ b/cpan/Unicode-Normalize/Normalize.pm @@ -2,7 +2,7 @@ package Unicode::Normalize; BEGIN { unless ("A" eq pack('U', 0x41)) { - die "Unicode::Normalize cannot stringify a Unicode code point\n"; + #die "Unicode::Normalize cannot stringify a Unicode code point\n"; } } diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index d50b501..dd8156c 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -1415,8 +1415,8 @@ sub PROTOTYPE_handler { else { # remove any whitespace s/\s+//g; - $self->death("Error: Invalid prototype '$_'") - unless valid_proto_string($_); + #$self->death("Error: Invalid prototype '$_'") + #unless valid_proto_string($_); $self->{ProtoThisXSUB} = C_string($_); } } -- Perl5 Master Repository