Changeset fa4562c for perlconfig.c


Ignore:
Timestamp:
Aug 15, 2009, 7:08:18 PM (12 years ago)
Author:
Anders Kaseorg <andersk@mit.edu>
Branches:
master, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
e19eb97
Parents:
65b2173
git-author:
Anders Kaseorg <andersk@mit.edu> (08/04/09 02:59:42)
git-committer:
Anders Kaseorg <andersk@mit.edu> (08/15/09 19:08:18)
Message:
Prepare code for adding const qualifiers for char * and void *.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    r65b2173 rfa4562c  
    2626  HV *h, *stash;
    2727  SV *hr;
    28   char *ptr, *blessas, *type;
     28  char *type;
     29  char *ptr, *utype, *blessas;
    2930  int i, j;
    3031  owl_pair *pair;
     
    9596  type = owl_message_get_type(m);
    9697  if(!type || !*type) type = "generic";
    97   type = owl_strdup(type);
    98   type[0] = toupper(type[0]);
    99   blessas = owl_sprintf("BarnOwl::Message::%s", type);
     98  utype = owl_strdup(type);
     99  utype[0] = toupper(type[0]);
     100  blessas = owl_sprintf("BarnOwl::Message::%s", utype);
    100101
    101102  hr = newRV_noinc((SV*)h);
     
    106107  }
    107108  hr = sv_bless(hr,stash);
    108   owl_free(type);
     109  owl_free(utype);
    109110  owl_free(blessas);
    110111  return hr;
     
    312313  owl_global_set_no_have_config(&g);
    313314
    314   ret=perl_parse(p, owl_perl_xs_init, 2, args, NULL);
     315  ret=perl_parse(p, owl_perl_xs_init, 2, (char **)args, NULL);
    315316  if (ret || SvTRUE(ERRSV)) {
    316317    err=owl_strdup(SvPV_nolen(ERRSV));
Note: See TracChangeset for help on using the changeset viewer.