This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Hmmm...strftime() does work on Win32, but tzset() is having problems
[perl5.git]
/
ext
/
ByteLoader
/
ByteLoader.xs
diff --git
a/ext/ByteLoader/ByteLoader.xs
b/ext/ByteLoader/ByteLoader.xs
index
e71b7cd
..
679298e
100644
(file)
--- a/
ext/ByteLoader/ByteLoader.xs
+++ b/
ext/ByteLoader/ByteLoader.xs
@@
-45,11
+45,10
@@
bl_read(struct byteloader_fdata *data, char *buf, size_t size, size_t n)
len -= data->next_out;
if (len) {
memmove (start, start + data->next_out, len + 1);
len -= data->next_out;
if (len) {
memmove (start, start + data->next_out, len + 1);
- SvCUR_set (data->datasv, len);
} else {
*start = '\0'; /* Avoid call to memmove. */
} else {
*start = '\0'; /* Avoid call to memmove. */
- SvCUR_set (data->datasv, 0);
}
}
+ SvCUR_set(data->datasv, len);
data->next_out = 0;
/* Attempt to read more data. */
data->next_out = 0;
/* Attempt to read more data. */
@@
-81,6
+80,8
@@
byteloader_filter(pTHX_ int idx, SV *buf_sv, int maxlen)
struct byteloader_state bstate;
struct byteloader_fdata data;
int len;
struct byteloader_state bstate;
struct byteloader_fdata data;
int len;
+ (void)buf_sv;
+ (void)maxlen;
data.next_out = 0;
data.datasv = FILTER_DATA(idx);
data.next_out = 0;
data.datasv = FILTER_DATA(idx);