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

[stas]

stas        2004/03/03 15:07:29

  Modified:    src/modules/perl modperl_io_apache.c
  Log:
  we can't do sv_setpv(get_sv("!", TRUE), ...) as it breaks the magic for $!
  and the error message will persist for the rest of the interpreter life.
  
  Revision  Changes    Path
  1.16      +1 -1      modperl-2.0/src/modules/perl/modperl_io_apache.c
  
  Index: modperl_io_apache.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io_apache.c,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -u -r1.15 -r1.16
  --- modperl_io_apache.c       29 Jan 2004 02:47:34 -0000      1.15
  +++ modperl_io_apache.c       3 Mar 2004 23:07:29 -0000       1.16
  @@ -292,7 +292,7 @@
               else {
                   error = modperl_apr_strerror(rc);
               }
  -            sv_setpv(get_sv("!", TRUE),
  +            sv_setpv(ERRSV,
                        (char *)apr_psprintf(r->pool, 
                                             "failed to get bucket brigade: %s",
                                             error));