Added some consts to remove 'deprecated string to char*' warnings.

This commit is contained in:
Arthur Ice
2013-03-09 10:52:25 -08:00
parent 0e6272e6d8
commit faa93c3739
4 changed files with 10 additions and 10 deletions
+3 -3
View File
@@ -47,9 +47,9 @@ XS(XS_PerlPacket_new)
if (items < 1 || items > 3)
Perl_croak(aTHX_ "Usage: PerlPacket::new(CLASS, opcode= \"OP_Unknown\", len= 0)");
{
char * CLASS = (char *)SvPV_nolen(ST(0));
PerlPacket * RETVAL;
char * opcode;
char *CLASS = (char *)SvPV_nolen(ST(0));
PerlPacket *RETVAL;
const char *opcode;
uint32 len;
if (items < 2)