ExtUtils::ParseXS: Don't put null chars into generated source

... file when -except is used; write the '\0' escape sequence
properly instead.

diff --git a/dist/ExtUtils-ParseXS/Changes b/dist/ExtUtils-ParseXS/Changes
index c47ac64..f4de8ae 100644 (file)
--- a/dist/ExtUtils-ParseXS/Changes
+++ b/dist/ExtUtils-ParseXS/Changes
@@ -1,5 +1,11 @@
 Revision history for Perl extension ExtUtils::ParseXS.
 
+3.04_02 - ...
+
+  - Don't put null characters into the generated source
+    file when -except is used; write the '\0' escape sequence
+    properly instead. [Stephen Bennett]
+
 3.04_01 - Sun Aug 28 17:50:00 CET 2011
 
   - The XSUB.h changes to make XS(name) use XS_INTERNAL(name)

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 08d6ac1..fe5874a 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -522,7 +522,7 @@ EOF
 
     print Q(<<"EOF") if $self->{except};
 #    char errbuf[1024];
-#    *errbuf = '\0';
+#    *errbuf = '\\0';
 EOF
 
     if($self->{cond}) {