perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From a..@hyperreal.org
Subject cvs commit: modperl/src/modules/perl perl_config.c
Date Tue, 16 Feb 1999 19:10:02 GMT
ask         99/02/16 11:10:02

  Modified:    .        Changes
               src/modules/perl perl_config.c
  Log:
  issue with threads in perl_config.c [ Malcolm Beattie
  <mbeattie@sable.ox.ac.uk> / Koichi Nakatani <nakatani@konica.co.jp> ]
  Message-ID: <36C913C3.A2C529FC@konica.co.jp>
  Message-Id: <E10Cjno-0005qB-00@sable.ox.ac.uk>
  
  Revision  Changes    Path
  1.265     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.264
  retrieving revision 1.265
  diff -u -r1.264 -r1.265
  --- Changes	1999/02/13 22:05:37	1.264
  +++ Changes	1999/02/16 19:09:53	1.265
  @@ -8,6 +8,9 @@
   
   =item 1.18_01-dev
   
  +issue with threads in perl_config.c [ Malcolm Beattie
  +<mbeattie@sable.ox.ac.uk> / Koichi Nakatani <nakatani@konica.co.jp> ]
  +
   fix bug in PerlPassEnv spotted by Gerd Knops, where values were munged  
   
   make sure per-dir PerlSetEnv happens after defaults are set (e.g. PATH)
  
  
  
  1.68      +4 -3      modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.67
  retrieving revision 1.68
  diff -u -r1.67 -r1.68
  --- perl_config.c	1999/02/13 22:05:38	1.67
  +++ perl_config.c	1999/02/16 19:09:59	1.68
  @@ -1614,9 +1614,10 @@
   		    perl_eat_config_string(parms, dummy, sv);
   		}
   		else {
  -		    MP_TRACE_s(fprintf(stderr, "SVt_PV: $%s = `%s'\n", 
  -				     key, SvPV(sv,na)));
  -		    sprintf(line, "%s %s", key, SvPV(sv,na));
  +		    STRLEN junk;
  +		    MP_TRACE_s(fprintf(stderr, "SVt_PV: $%s = `%s'\n",
  +							 key, SvPV(sv,junk)));
  +		    sprintf(line, "%s %s", key, SvPV(sv,junk));
   		    perl_handle_command(parms, dummy, line);
   		}
   	    }
  
  
  

Mime
View raw message