cvs commit: httpd-apreq-2/glue/perl/xsbuilder apreq_xs_postperl.h

[joes]

joes        2004/07/01 11:26:33

  Modified:    glue/perl/xsbuilder apreq_xs_postperl.h
  Log:
  Remove leftover error check of Perl_require_pv - thanks Stas.
  
  Revision  Changes    Path
  1.31      +0 -4      httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h
  
  Index: apreq_xs_postperl.h
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h,v
  retrieving revision 1.30
  retrieving revision 1.31
  diff -u -r1.30 -r1.31
  --- apreq_xs_postperl.h       1 Jul 2004 12:34:53 -0000       1.30
  +++ apreq_xs_postperl.h       1 Jul 2004 18:26:33 -0000       1.31
  @@ -379,10 +379,6 @@
   {
       HV *stash = gv_stashpvn(class, strlen(class), FALSE);
   
  -    if (SvTRUE(ERRSV)) {
  -        Perl_croak(aTHX_ "%s", SvPV_nolen(ERRSV));   
  -    }
  -
       sv_setsv(ERRSV, sv_2mortal(sv_bless(newRV_noinc((SV*)data), stash)));
       sv_setiv(*hv_fetch(data, "rc",   2, 1), rc);
       sv_setpv(*hv_fetch(data, "file", 4, 1), CopFILE(PL_curcop));