Skip to content

Commit eb6f169

Browse files
LeontLeont
committed
Split PV typemap into mutable and immutable
1 parent f81d6dc commit eb6f169

File tree

30 files changed

+121
-104
lines changed

30 files changed

+121
-104
lines changed

‎cpan/Compress-Raw-Zlib/Zlib.xs

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -2262,15 +2262,17 @@ getLastBufferOffset(s)
22622262
RETVAL
22632263

22642264
void
2265-
resetLastBlockByte(s, byte)
2265+
resetLastBlockByte(s, byte_sv)
22662266
Compress::Raw::Zlib::inflateScanStream s
2267-
unsigned char* byte
2267+
SV* byte_sv
22682268
CODE:
22692269
#ifndef MAGIC_APPEND
22702270
croak("resetLastBlockByte needs zlib 1.2.1 or better");
22712271
#else
2272-
if (byte != NULL)
2272+
if (SvOK(byte_sv)) {
2273+
unsigned char* byte = (unsigned char*)SvPV_force_nolen(byte_sv);
22732274
*byte = *byte ^ (1 << ((8 - s->window_lastbit) & 7));
2275+
}
22742276
#endif
22752277

22762278

‎cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ use warnings ;
1010
use bytes ;
1111
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS);
1212

13-
$VERSION = '2.213';
13+
$VERSION = '2.214';
1414
$XS_VERSION = $VERSION;
1515
$VERSION = eval $VERSION;
1616

‎cpan/DB_File/DB_File.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -165,7 +165,7 @@ use Carp;
165165
# Module not thread safe, so don't clone
166166
sub CLONE_SKIP { 1 }
167167

168-
$VERSION = "1.859" ;
168+
$VERSION = "1.860" ;
169169
$VERSION = eval $VERSION; # needed for dev releases
170170

171171
{

‎cpan/DB_File/DB_File.xs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1578,10 +1578,10 @@ BOOT:
15781578

15791579
DB_File
15801580
db_DoTie_(isHASH, dbtype, name=undef, flags=O_CREAT|O_RDWR, mode=0666, type=DB_HASH)
1581-
int isHASH
1582-
char * dbtype
1583-
int flags
1584-
int mode
1581+
int isHASH
1582+
const char * dbtype
1583+
int flags
1584+
int mode
15851585
CODE:
15861586
{
15871587
char * name = (char *) NULL ;

‎cpan/Socket/Socket.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ package Socket;
33
use v5.6.1;
44
use strict;
55

6-
our $VERSION = '2.038';
6+
our $VERSION = '2.039';
77

88
=head1 NAME
99

‎cpan/Socket/Socket.xs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -776,7 +776,7 @@ BOOT:
776776

777777
void
778778
inet_aton(host)
779-
char * host
779+
const char * host
780780
CODE:
781781
{
782782
#ifdef HAS_GETADDRINFO

‎ext/DynaLoader/DynaLoader_pm.PL

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -90,7 +90,7 @@ package DynaLoader;
9090
# [email protected], August 1994
9191
9292
BEGIN {
93-
our $VERSION = '1.57';
93+
our $VERSION = '1.58';
9494
}
9595
9696
# Note: in almost any other piece of code "our" would have been a better

‎ext/DynaLoader/dl_aix.xs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -692,7 +692,7 @@ BOOT:
692692

693693
void
694694
dl_load_file(filename, flags=0)
695-
char * filename
695+
const char * filename
696696
int flags
697697
PREINIT:
698698
void *retv;
@@ -724,7 +724,7 @@ dl_unload_file(libref)
724724
void
725725
dl_find_symbol(libhandle, symbolname, ign_err=0)
726726
void * libhandle
727-
char * symbolname
727+
const char * symbolname
728728
int ign_err
729729
PREINIT:
730730
void *retv;
@@ -751,7 +751,7 @@ dl_undef_symbols()
751751

752752
void
753753
dl_install_xsub(perl_name, symref, filename="$Package")
754-
char * perl_name
754+
const char * perl_name
755755
void * symref
756756
const char * filename
757757
CODE:

‎ext/DynaLoader/dl_dllload.xs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,7 @@ BOOT:
109109

110110
void
111111
dl_load_file(filename, flags=0)
112-
char * filename
112+
const char * filename
113113
int flags
114114
PREINIT:
115115
int mode = 0;
@@ -144,7 +144,7 @@ dl_unload_file(libref)
144144
void
145145
dl_find_symbol(libhandle, symbolname, ign_err=0)
146146
void * libhandle
147-
char * symbolname
147+
const char * symbolname
148148
int ign_err
149149
PREINIT:
150150
void *retv;
@@ -175,7 +175,7 @@ dl_undef_symbols()
175175

176176
void
177177
dl_install_xsub(perl_name, symref, filename="$Package")
178-
char * perl_name
178+
const char * perl_name
179179
void * symref
180180
const char * filename
181181
PPCODE:

‎ext/DynaLoader/dl_dlopen.xs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -173,7 +173,7 @@ BOOT:
173173

174174
SV *
175175
dl_load_file(filename, flags=0)
176-
char * filename
176+
const char * filename
177177
int flags
178178
PREINIT:
179179
int mode = RTLD_LAZY;
@@ -234,7 +234,7 @@ dl_unload_file(libref)
234234
SV *
235235
dl_find_symbol(libhandle, symbolname, ign_err=0)
236236
void * libhandle
237-
char * symbolname
237+
const char * symbolname
238238
int ign_err
239239
PREINIT:
240240
void *sym;
@@ -269,7 +269,7 @@ dl_undef_symbols()
269269

270270
SV *
271271
dl_install_xsub(perl_name, symref, filename="$Package")
272-
char * perl_name
272+
const char * perl_name
273273
void * symref
274274
const char * filename
275275
CODE:

0 commit comments

Comments
 (0)