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

[stas]

stas        02/01/28 21:54:20

  Modified:    src/modules/perl modperl_util.c
  Log:
  - if undef is passed, try to get the request object from the global
  storage, which stores the current request object if applicable
  
  Revision  Changes    Path
  1.36      +0 -4      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -r1.35 -r1.36
  --- modperl_util.c    29 Jan 2002 05:52:24 -0000      1.35
  +++ modperl_util.c    29 Jan 2002 05:54:20 -0000      1.36
  @@ -87,10 +87,6 @@
       SV *sv = Nullsv;
       MAGIC *mg;
   
  -    if (in == &PL_sv_undef) {
  -        return NULL;
  -    }
  -
       if (SvROK(in)) {
           SV *rv = (SV*)SvRV(in);