This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Storable: Restore 5.8.2 compatibility
authorFather Chrysostomos <sprout@cpan.org>
Mon, 11 Jul 2011 20:21:28 +0000 (13:21 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 11 Jul 2011 20:21:28 +0000 (13:21 -0700)
dist/Storable/Storable.xs

index fb25a78..5ad1556 100644 (file)
@@ -90,6 +90,11 @@ typedef double NV;                   /* Older perls lack the NV type */
 #endif
 #endif
 
+/* perl <= 5.8.2 needs this */
+#ifndef SvIsCOW
+# define SvIsCOW(sv) 0
+#endif
+
 #ifndef SvRV_set
 #define SvRV_set(sv, val) \
     STMT_START { \