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
# Tim.Bunce@ig.co.uk, 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:

‎ext/DynaLoader/dl_dyld.xs

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

157157
void *
158158
dl_load_file(filename, flags=0)
159-
char * filename
159+
const char * filename
160160
int flags
161161
CODE:
162162
DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", filename,flags));
@@ -174,7 +174,7 @@ dl_load_file(filename, flags=0)
174174
void *
175175
dl_find_symbol(libhandle, symbolname, ign_err=0)
176176
void * libhandle
177-
char * symbolname
177+
const char * symbolname
178178
int ign_err
179179
CODE:
180180
symbolname = Perl_form_nocontext("_%s", symbolname);
@@ -202,7 +202,7 @@ dl_undef_symbols()
202202

203203
void
204204
dl_install_xsub(perl_name, symref, filename="$Package")
205-
char * perl_name
205+
const char * perl_name
206206
void * symref
207207
const char * filename
208208
CODE:

‎ext/DynaLoader/dl_freemint.xs

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

8989
void
9090
dl_load_file(filename, flags=0)
91-
char * filename
91+
const char * filename
9292
int flags
9393
PREINIT:
9494
int dlderr,x,max;
@@ -147,7 +147,7 @@ haverror:
147147
void
148148
dl_find_symbol(libhandle, symbolname, ign_err=0)
149149
void * libhandle
150-
char * symbolname
150+
const char * symbolname
151151
int ign_err
152152
PREINIT:
153153
void *retv;
@@ -183,7 +183,7 @@ dl_undef_symbols()
183183

184184
void
185185
dl_install_xsub(perl_name, symref, filename="$Package")
186-
char * perl_name
186+
const char * perl_name
187187
void * symref
188188
const char * filename
189189
CODE:

‎ext/DynaLoader/dl_hpux.xs

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

5656
void
5757
dl_load_file(filename, flags=0)
58-
char * filename
58+
const char * filename
5959
int flags
6060
PREINIT:
6161
shl_t obj = NULL;
@@ -120,7 +120,7 @@ dl_unload_file(libref)
120120
void
121121
dl_find_symbol(libhandle, symbolname, ign_err=0)
122122
void * libhandle
123-
char * symbolname
123+
const char * symbolname
124124
int ign_err
125125
PREINIT:
126126
shl_t obj = (shl_t) libhandle;
@@ -162,7 +162,7 @@ dl_undef_symbols()
162162

163163
void
164164
dl_install_xsub(perl_name, symref, filename="$Package")
165-
char * perl_name
165+
const char * perl_name
166166
void * symref
167167
const char * filename
168168
CODE:

‎ext/DynaLoader/dl_vms.xs

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

160160
SV *
161161
dl_expandspec(filespec)
162-
char * filespec
162+
const char * filespec
163163
CODE:
164164
char vmsspec[NAM$C_MAXRSS], defspec[NAM$C_MAXRSS];
165165
size_t deflen;
@@ -222,7 +222,7 @@ dl_expandspec(filespec)
222222

223223
SV *
224224
dl_load_file(filename, flags=0)
225-
char * filename
225+
const char * filename
226226
int flags
227227
PREINIT:
228228
dTHX;
@@ -345,7 +345,7 @@ dl_undef_symbols()
345345

346346
SV *
347347
dl_install_xsub(perl_name, symref, filename="$Package")
348-
char * perl_name
348+
const char * perl_name
349349
void * symref
350350
const char * filename
351351
CODE:

‎ext/DynaLoader/dl_win32.xs

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

119119
void
120120
dl_load_file(filename,flags=0)
121-
char * filename
121+
const char * filename
122122
#flags is unused
123123
SV * flags = NO_INIT
124124
PREINIT:
@@ -160,7 +160,7 @@ dl_unload_file(libref)
160160
void
161161
dl_find_symbol(libhandle, symbolname, ign_err=0)
162162
void * libhandle
163-
char * symbolname
163+
const char * symbolname
164164
int ign_err
165165
PREINIT:
166166
void *retv;
@@ -186,7 +186,7 @@ dl_undef_symbols()
186186

187187
void
188188
dl_install_xsub(perl_name, symref, filename="$Package")
189-
char * perl_name
189+
const char * perl_name
190190
void * symref
191191
const char * filename
192192
CODE:

‎ext/GDBM_File/GDBM_File.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -733,7 +733,7 @@ require XSLoader;
733733
);
734734

735735
# This module isn't dual life, so no need for dev version numbers.
736-
$VERSION = '1.24';
736+
$VERSION = '1.25';
737737

738738
our $gdbm_errno;
739739

‎ext/GDBM_File/GDBM_File.xs

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -312,8 +312,8 @@ gdbm_GDBM_version(package)
312312

313313
GDBM_File
314314
gdbm_TIEHASH(dbtype, name, read_write, mode)
315-
char * dbtype
316-
char * name
315+
const char * dbtype
316+
const char * name
317317
int read_write
318318
int mode
319319
PREINIT:
@@ -684,7 +684,7 @@ gdbm_count(db)
684684
void
685685
gdbm_dump(db, filename, ...)
686686
GDBM_File db
687-
char * filename
687+
const char * filename
688688
PREINIT:
689689
int format = GDBM_DUMP_FMT_ASCII;
690690
int flags = GDBM_WRCREAT;
@@ -725,7 +725,7 @@ gdbm_dump(db, filename, ...)
725725
void
726726
gdbm_load(db, filename, ...)
727727
GDBM_File db
728-
char * filename
728+
const char * filename
729729
PREINIT:
730730
int flag = GDBM_INSERT;
731731
int meta_mask = 0;
@@ -1012,8 +1012,8 @@ gdbm_convert(db, flag)
10121012
int
10131013
gdbm_failure_atomic(db, even, odd)
10141014
GDBM_File db
1015-
char * even
1016-
char * odd
1015+
const char * even
1016+
const char * odd
10171017
INIT:
10181018
CHECKDB(db);
10191019
CLEANUP:
@@ -1023,8 +1023,8 @@ gdbm_failure_atomic(db, even, odd)
10231023

10241024
void
10251025
gdbm_latest_snapshot(package, even, odd)
1026-
char * even
1027-
char * odd
1026+
const char * even
1027+
const char * odd
10281028
INIT:
10291029
int result;
10301030
int syserr;

‎ext/NDBM_File/NDBM_File.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ require Tie::Hash;
77
require XSLoader;
88

99
our @ISA = qw(Tie::Hash);
10-
our $VERSION = "1.18";
10+
our $VERSION = "1.19";
1111

1212
XSLoader::load();
1313

‎ext/NDBM_File/NDBM_File.xs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -60,16 +60,16 @@ MODULE = NDBM_File PACKAGE = NDBM_File PREFIX = ndbm_
6060

6161
NDBM_File
6262
ndbm_TIEHASH(dbtype, filename, flags, mode)
63-
char * dbtype
64-
char * filename
63+
const char * dbtype
64+
const char * filename
6565
int flags
6666
int mode
6767
CODE:
6868
{
6969
DBM * dbp ;
7070

7171
RETVAL = NULL ;
72-
if ((dbp = dbm_open(filename, flags, mode))) {
72+
if ((dbp = dbm_open((char*)filename, flags, mode))) {
7373
RETVAL = (NDBM_File)safecalloc(1, sizeof(NDBM_File_type));
7474
RETVAL->dbp = dbp ;
7575
}

‎ext/ODBM_File/ODBM_File.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ require Tie::Hash;
77
require XSLoader;
88

99
our @ISA = qw(Tie::Hash);
10-
our $VERSION = "1.20";
10+
our $VERSION = "1.21";
1111

1212
XSLoader::load();
1313

0 commit comments

Comments
 (0)