Author: sparky
Date: Fri Jul 16 20:15:03 2010
New Revision: 11679
Modified:
toys/rsget.pl/RSGet/Tools.pm
Log:
- faster hadd()
Modified: toys/rsget.pl/RSGet/Tools.pm
==============================================================================
--- toys/rsget.pl/RSGet/Tools.pm (original)
+++ toys/rsget.pl/RSGet/Tools.pm Fri Jul 16 20:15:03 2010
@@ -57,9 +57,7 @@
{
my $h = shift;
my %new = @_;
- foreach ( keys %new ) {
- $h->{$_} = $new{$_};
- }
+ @$h{ keys %new } = values %new;
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
