cvs commit: ponie/perl hv.c

cvsuser     04/03/02 03:19:40

  Modified:    perl     hv.c
  Log:
  Dont optimize hash copies for the time being due to segfault
  
  Revision  Changes    Path
  1.4       +2 -1      ponie/perl/hv.c
  
  Index: hv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/hv.c,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- hv.c	27 Feb 2004 14:23:39 -0000	1.3
  +++ hv.c	2 Mar 2004 11:19:40 -0000	1.4
  @@ -1640,7 +1640,8 @@
   	return hv;
       hv_max = HvMAX(ohv);
   
  -    if (!SvMAGICAL((SV *)ohv)) {
  +    /* XXX disabled optimization in ponie because it was breaking things */
  +    if (0 && !SvMAGICAL((SV *)ohv)) {
   	/* It's an ordinary hash, so copy it fast. AMS 20010804 */
   	STRLEN i;
   	bool shared = !!HvSHAREKEYS(ohv);