diff options
author | Lukas Mai <l.mai@web.de> | 2017-07-16 11:48:41 +0200 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2017-07-16 11:57:35 +0200 |
commit | ca380389350a04f7b4d81db98c19a0409113d7c2 (patch) | |
tree | 444272ad8dbeabc9e7deae290ac073de5f2a8dd5 | |
parent | 2362b21b1463004e2e5067e6904c5b25c0fc426d (diff) | |
download | perl-ca380389350a04f7b4d81db98c19a0409113d7c2.tar.gz |
PerlIO::scalar: check invariant at compile time
-rw-r--r-- | ext/PerlIO-scalar/scalar.pm | 2 | ||||
-rw-r--r-- | ext/PerlIO-scalar/scalar.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO-scalar/scalar.pm b/ext/PerlIO-scalar/scalar.pm index 0276f210d6..61b62ea3a2 100644 --- a/ext/PerlIO-scalar/scalar.pm +++ b/ext/PerlIO-scalar/scalar.pm @@ -1,5 +1,5 @@ package PerlIO::scalar; -our $VERSION = '0.28'; +our $VERSION = '0.29'; require XSLoader; XSLoader::load(); 1; diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs index 5c2ff5f0d9..10a4185899 100644 --- a/ext/PerlIO-scalar/scalar.xs +++ b/ext/PerlIO-scalar/scalar.xs @@ -186,7 +186,7 @@ PerlIOScalar_read(pTHX_ PerlIO *f, void *vbuf, Size_t count) * seems safe) and that the size of the buffer in our SV is * always less than half the size of the address space */ - assert(sizeof(Off_t) >= sizeof(len)); + STATIC_ASSERT_STMT(sizeof(Off_t) >= sizeof(len)); assert(len < ((~(STRLEN)0) >> 1)); if ((Off_t)len <= s->posn) return 0; |