SVN: toys/rsget.pl/RSGet/Tools.pm

[sparky]

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;
 }