Re: [FWP] Copying hashes

[Jeff Pinyan <jeffp@crusoe.net>]

>    my $r = $sth->fetchrow_hashref() or return 0;
>    $self->{keys %$r} = $self->{values %$r};

Perhaps you meant:

  @{$self}{keys %$r} = values %$r;

-- 

  MIDN 4/C PINYAN, USNR, NROTCURPI     http://www.pobox.com/~japhy/
  jeff pinyan: japhy@pobox.com     perl stuff: japhy+perl@pobox.com
  CPAN ID: PINYAN  http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
  PerlMonth - An Online Perl Magazine     http://www.perlmonth.com/


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe