This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Up Storable minor version
authorDavid Leadbeater <dgl@dgl.cx>
Fri, 3 Dec 2010 09:20:52 +0000 (09:20 +0000)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Dec 2010 19:42:17 +0000 (11:42 -0800)
The change for storing UTF-8 coderefs necessitates this change.

dist/Storable/Storable.xs
dist/Storable/t/malice.t

index 6a1ddb3..531855a 100644 (file)
@@ -847,7 +847,7 @@ static const char byteorderstr_56[] = {BYTEORDER_BYTES_56, 0};
 #endif
 
 #define STORABLE_BIN_MAJOR     2               /* Binary major "version" */
-#define STORABLE_BIN_MINOR     7               /* Binary minor "version" */
+#define STORABLE_BIN_MINOR     8               /* Binary minor "version" */
 
 #if (PATCHLEVEL <= 5)
 #define STORABLE_BIN_WRITE_MINOR       4
@@ -855,7 +855,7 @@ static const char byteorderstr_56[] = {BYTEORDER_BYTES_56, 0};
 /*
  * Perl 5.6.0 onwards can do weak references.
 */
-#define STORABLE_BIN_WRITE_MINOR       7
+#define STORABLE_BIN_WRITE_MINOR       8
 #endif /* (PATCHLEVEL <= 5) */
 
 #if (PATCHLEVEL < 8 || (PATCHLEVEL == 8 && SUBVERSION < 1))
index ddb65dd..6da6909 100644 (file)
@@ -33,8 +33,8 @@ $file_magic_str = 'pst0';
 $other_magic = 7 + length $byteorder;
 $network_magic = 2;
 $major = 2;
-$minor = 7;
-$minor_write = $] > 5.005_50 ? 7 : 4;
+$minor = 8;
+$minor_write = $] > 5.005_50 ? $] >= 5.008 ? 8 : 7 : 4;
 
 use Test::More;