cvs commit: parrot/classes perlhash.pmc

[Leopold Toetsch]

cvsuser     04/09/09 03:47:48

  Modified:    classes  perlhash.pmc
  Log:
  fix hash clone bug 31493
  
  Revision  Changes    Path
  1.92      +2 -2      parrot/classes/perlhash.pmc
  
  Index: perlhash.pmc
  ===================================================================
  RCS file: /cvs/public/parrot/classes/perlhash.pmc,v
  retrieving revision 1.91
  retrieving revision 1.92
  diff -u -w -r1.91 -r1.92
  --- perlhash.pmc      30 Aug 2004 13:55:27 -0000      1.91
  +++ perlhash.pmc      9 Sep 2004 10:47:46 -0000       1.92
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: perlhash.pmc,v 1.91 2004/08/30 13:55:27 leo Exp $
  +$Id: perlhash.pmc,v 1.92 2004/09/09 10:47:46 leo Exp $
   
   =head1 NAME
   
  @@ -290,9 +290,9 @@
       PMC* clone () {
           PMC* dest = pmc_new_noinit(INTERP, SELF->vtable->base_type);
           PObj_custom_mark_SET(dest);
  -        ((Hash*)PMC_struct_val(dest))->container = dest;
           hash_clone(INTERP, (Hash *)PMC_struct_val(SELF),
                      (Hash**)&PMC_struct_val(dest));
  +        ((Hash*)PMC_struct_val(dest))->container = dest;
           return dest;
       }