diff options
author | David Mitchell <davem@iabyn.com> | 2017-06-12 13:05:23 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2017-06-12 21:11:02 +0100 |
commit | 522dba3426c18f53b5e3a09c16b13670d4bafd6d (patch) | |
tree | 13f8970703027a81261499d9f0789b4d40100ea6 | |
parent | 6d58945bb899c873defec040c7d8c9823f3c5d68 (diff) | |
download | perl-522dba3426c18f53b5e3a09c16b13670d4bafd6d.tar.gz |
Storable: fix a couple of 32-bit warnings
Storable.xs: In function 'retrieve_blessed':
Storable.xs:1015:39: warning: comparison between signed and unsigned integer expressions [-Wsign-compare]
else if (PerlIO_read(cxt->fio, x, y) != y) { \
^
Storable.xs:4078:2: note: in expansion of macro 'SAFEPVREAD'
SAFEPVREAD(classname, len, malloced_classname);
-rw-r--r-- | dist/Storable/Storable.pm | 2 | ||||
-rw-r--r-- | dist/Storable/Storable.xs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm index d8fd740eee..3adc8044de 100644 --- a/dist/Storable/Storable.pm +++ b/dist/Storable/Storable.pm @@ -22,7 +22,7 @@ package Storable; @ISA = qw(Exporter); use vars qw($canonical $forgive_me $VERSION); -$VERSION = '2.62'; +$VERSION = '2.63'; BEGIN { if (eval { diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs index 9ba48be1c4..1043bf7914 100644 --- a/dist/Storable/Storable.xs +++ b/dist/Storable/Storable.xs @@ -4075,7 +4075,7 @@ static SV *retrieve_blessed(pTHX_ stcxt_t *cxt, const char *cname) New(10003, classname, len+1, char); malloced_classname = classname; } - SAFEPVREAD(classname, len, malloced_classname); + SAFEPVREAD(classname, (SSize_t)len, malloced_classname); classname[len] = '\0'; /* Mark string end */ /* @@ -4266,7 +4266,7 @@ static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname) malloced_classname = classname; } - SAFEPVREAD(classname, len, malloced_classname); + SAFEPVREAD(classname, (SSize_t)len, malloced_classname); classname[len] = '\0'; /* Mark string end */ /* |