cvs commit: ponie/perl hv.c

cvsuser     04/03/04 04:13:51

  Modified:    perl     hv.c
  Log:
  back out previous segfault avoider after nicholas HvARRAY fix
  
  Revision  Changes    Path
  1.6       +1 -1      ponie/perl/hv.c
  
  Index: hv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/hv.c,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -w -r1.5 -r1.6
  --- hv.c	4 Mar 2004 12:10:16 -0000	1.5
  +++ hv.c	4 Mar 2004 12:13:51 -0000	1.6
  @@ -1637,7 +1637,7 @@
       hv_max = HvMAX(ohv);
   
       /* XXX disabled optimization in ponie because it was breaking things */
  -    if (0 && !SvMAGICAL((SV *)ohv)) {
  +    if (!SvMAGICAL((SV *)ohv)) {
   	/* It's an ordinary hash, so copy it fast. AMS 20010804 */
   	STRLEN i;
   	bool shared = !!HvSHAREKEYS(ohv);