cvs commit: modperl-2.0/src/modules/perl modperl_callback.c

[dougm]

dougm       01/03/13 16:20:53

  Modified:    src/modules/perl modperl_callback.c
  Log:
  add support for IV and PV in modperl_handler_make_args()
  
  Revision  Changes    Path
  1.23      +16 -1     modperl-2.0/src/modules/perl/modperl_callback.c
  
  Index: modperl_callback.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -r1.22 -r1.23
  --- modperl_callback.c        2001/03/13 23:55:18     1.22
  +++ modperl_callback.c        2001/03/14 00:20:52     1.23
  @@ -35,7 +35,22 @@
   
           ptr = va_arg(args, void *);
   
  -        sv = modperl_ptr2obj(aTHX_ classname, ptr);
  +        switch (*classname) {
  +          case 'I':
  +            if (strEQ(classname, "IV")) {
  +                sv = ptr ? newSViv((IV)ptr) : &PL_sv_undef;
  +                break;
  +            }
  +          case 'P':
  +            if (strEQ(classname, "PV")) {
  +                sv = ptr ? newSVpv((char *)ptr, 0) : &PL_sv_undef;
  +                break;
  +            }
  +          default:
  +            sv = modperl_ptr2obj(aTHX_ classname, ptr);
  +            break;
  +        }
  +
           av_push(av, sv);
       }