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

Reply via email to