import YAML-Syck 0.82 from CPAN

git-cpan-module: YAML-Syck git-cpan-version: 0.82 git-cpan-authorid: AUDREYT git-cpan-file: authors/id/A/AU/AUDREYT/YAML-Syck-0.82.tar.gz
cpan-authors · Dec 14, 2009 · 8fcfda1 · 8fcfda1
1 parent 6699022
commit 8fcfda1
Show file tree

Hide file tree

Showing 8 changed files with 23 additions and 17 deletions.
diff --git a/Changes b/Changes
@@ -1,9 +1,13 @@
+[Changes for 0.82 (JSON::Syck 0.21) - 2007-01-26]
+
+* Bytestrings containing no high bit bytes are no longer dumped as "!binary".
+
 [Changes for 0.81 (JSON::Syck 0.21) - 2007-01-26]
 
 * Support for loading Base64-encoded "!binary" type.
 
 * Support for dumping non-unicode bytes containing high bits as
-  Base64-encoded binary" type.
+  Base64-encoded "!binary" type.
 
 * JSON::Syck now raises an exception, instead of segfaults,
   when dumping a circular structure.

diff --git a/META.yml b/META.yml
@@ -14,4 +14,4 @@ no_index:
     - t
 requires: 
   perl: 5.00307
-version: 0.81
+version: 0.82
diff --git a/SIGNATURE b/SIGNATURE
@@ -16,9 +16,9 @@ Hash: SHA1
 
 SHA1 04dd79e514dfd404ae0fa66c6e86db15ec165a96 COMPATIBILITY
 SHA1 3710975c0e6727079e17c6d1f27948c40729d710 COPYING
-SHA1 3e5a80392f05d9116d0406c2b537cf341f64628b Changes
+SHA1 8d14e4a780c4ff5bbaef49d11a357fd5033dc321 Changes
 SHA1 a21d762d2a8a269f70b8ebb13aa2a88b37417cf1 MANIFEST
-SHA1 bca06eedb87e4789f0993ab713eeb756c6567280 META.yml
+SHA1 9c111d96bf8cba773a9d5db1926a6643ad8bafd9 META.yml
 SHA1 0580343d0970b444f3d33516084840dd06a09452 Makefile.PL
 SHA1 4ff9b64038872c3d255b9c000a1f9fb2d000ea29 README
 SHA1 33c36d61607a784b206df02e9508c31649106d77 Syck.xs
@@ -44,20 +44,20 @@ SHA1 45d0149fee8d12082d0aa00fd9202f4b29126824 inc/Test/More.pm
 SHA1 4aac0be142b7bae60e84238fb33984100a0de18b lib/JSON/Syck.pm
 SHA1 2c2459b2b5cf94a7f9cd1905a242d7d01616ee0b lib/YAML/Dumper/Syck.pm
 SHA1 534000ebfb91c993f5344ae4e34185d853954e6f lib/YAML/Loader/Syck.pm
-SHA1 7762b0523b3f010761636bfe2924ce9b6d5cd4ec lib/YAML/Syck.pm
-SHA1 a69ae227543ca7b532875cfb0172eb0326f2425a lib/YAML/Syck.pod
+SHA1 a48f6a00d696df7fc7c3357e46968545d8616fad lib/YAML/Syck.pm
+SHA1 65768aaabba4444867ea8c8b5e7460101b3ff6c3 lib/YAML/Syck.pod
 SHA1 118fa2ebec0e4625ec143d9264b2784dc6cfac21 node.c
 SHA1 7108100e0fec832b239e4242baa1b589fc7fe1b5 perl_common.h
-SHA1 6570abd547a5743a5ebb7b712b5677f5166ac3a9 perl_syck.h
+SHA1 9566f7d0bee43307d7589b34fd1131806879ea52 perl_syck.h
 SHA1 b8b76e40ef700b2dec432593c3883b0c11636aff ppport.h
 SHA1 9c9255d4d1a4b4ce5aa75ae4220df496cf8e4a44 ppport_math.h
 SHA1 604dd165210e0209bc5464e9793cdd22d9c6e3fd ppport_sort.h
 SHA1 8b36542c7579bc6dec3e946a32b1df87bca3b43d syck.h
 SHA1 9d0d8bf75e7ebd0903678beb434cb7298297986d syck_.c
-SHA1 7f4361420c4bca7c7dac3a0b5c04eb39c15a2000 syck_st.c
+SHA1 c86fd38b50f37b1d7ab6ff67aaa7c96b546d68b2 syck_st.c
 SHA1 dcb50a2c553f7d65b8be60f28305409a4286528a syck_st.h
 SHA1 fb1887fc7f53fdc1aefcecf565e659fca05fbba1 t/1-basic.t
-SHA1 b9fef9470806f95561424663b910cfa17ac47741 t/2-scalars.t
+SHA1 798e7dd6a4cfbde8ac0009124c5613bb32df3298 t/2-scalars.t
 SHA1 92e3ec103323d2ae1b3aa6187f7e0fe92c3c4045 t/3-objects.t
 SHA1 3d204931ed3bec06971a56a07fd3952c19330ccb t/4-perl_tag_scheme.t
 SHA1 d34d0ed79fa71e5beb8843ff857b9bb5c8cdd3ef t/TestYAML.pm
@@ -79,7 +79,7 @@ SHA1 b0528d36416a3650b8514d8f65093fe894adc3a5 yamlbyte.h
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.3 (Darwin)
 
-iD8DBQFFuTcltLPdNzw1AaARAvOFAKCWyqeZL59PE+DQp3/Z+Hkpl5OLIwCgtnjS
-In7xPvY+f4mV91G3aX84NQQ=
-=gH6I
+iD8DBQFFuTsOtLPdNzw1AaARAh7sAJ0dkyJUAQIGkuUjyb/MDZVWfEGLbgCgsKOw
+aFUqhcfV3x+PCl+1l794BbA=
+=xZVo
 -----END PGP SIGNATURE-----
diff --git a/lib/YAML/Syck.pm b/lib/YAML/Syck.pm
@@ -11,7 +11,7 @@ use 5.00307;
 use Exporter;
 
 BEGIN {
-    $VERSION = '0.81';
+    $VERSION = '0.82';
     @EXPORT  = qw( Dump Load DumpFile LoadFile );
     @ISA     = qw( Exporter );
 

diff --git a/lib/YAML/Syck.pod b/lib/YAML/Syck.pod
@@ -6,7 +6,7 @@ YAML::Syck - Fast, lightweight YAML loader and dumper
 
 =head1 VERSION
 
-This document describes version 0.81 of YAML::Syck, released
+This document describes version 0.82 of YAML::Syck, released
 January 26, 2007.
 
 =head1 SYNOPSIS

diff --git a/perl_syck.h b/perl_syck.h
@@ -738,9 +738,10 @@ yaml_syck_emitter_handler
             /* scan string for high-bits in the SV */
             bool is_ascii = TRUE;
             char *str = SvPV_nolen(sv);
+            STRLEN len = sv_len(sv);
 
             for (i = 0; i < len; i++) {
-                if (*(str + i) | 0x80) {
+                if (*(str + i) & 0x80) {
                     /* Binary here */
                     char *base64 = syck_base64enc( str, len );
                     syck_emit_scalar(e, "tag:yaml.org,2002:binary", SCALAR_STRING, 0, 0, 0, base64, strlen(base64));

diff --git a/syck_st.c b/syck_st.c
@@ -475,7 +475,7 @@ st_cleanup_safe(table, never)
 {
     int num_entries = table->num_entries;
 
-    st_foreach(table, delete_never, never);
+    st_foreach(table, (enum st_retval (*)())delete_never, never);
     table->num_entries = num_entries;
 }
 

diff --git a/t/2-scalars.t b/t/2-scalars.t
@@ -1,4 +1,4 @@
-use t::TestYAML tests => 43; 
+use t::TestYAML tests => 44; 
 
 local $SIG{__WARN__} = sub { 1 } if $Test::VERSION < 1.20;
 
@@ -130,4 +130,5 @@ $YAML::Syck::ImplicitBinary = $YAML::Syck::ImplicitBinary = 1;
 
 is(Dump("\xff\xff"), "--- !binary //8=\n");
 is(Load("--- !binary //8=\n"), "\xff\xff");
+is(Dump("ascii"), "--- ascii\n");