krimdomu · November 24, 2010 14:12
diff --git a/gistfile1.txt b/gistfile1.txt
diff --git a/update_hash.pl b/update_hash.pl
 sub update_hash {
   return $_[1] unless(ref($_[0]));
   map { $_[0]->{$_} = update_hash($_[0]->{$_}, $_[1]->{$_}) if (defined $_[1]->{$_}) } keys %{$_[0]} if ref($_[0]);
   $_[0];
 }
	sub update_hash {
	return $_[1] unless(ref($_[0]));
	map { $_[0]->{$_} = update_hash($_[0]->{$_}, $_[1]->{$_}) if (defined $_[1]->{$_}) } keys %{$_[0]} if ref($_[0]);
	$_[0];
	}