Scott Wessels wrote:
--- PerlSections.pm 2005-10-04 15:42:00.000000000 -0700
+++ PerlSections.pm.no_sort_keys 2005-10-04 15:41:34.000000000 -0700
@@ -129,7 +129,7 @@
sub dump_hash {
my($self, $name, $hash) = @_;
- for my $entry (sort keys %{ $hash || {} }) {
+ for my $entry (keys %{ $hash || {} }) {
my $item = $hash->{$entry};
my $type = ref($item);
@@ -149,7 +149,7 @@
$self->add_config("<$name $loc>\n");
- for my $entry (sort keys %{ $hash || {} }) {
+ for my $entry (keys %{ $hash || {} }) {
$self->dump_entry($entry, $hash->{$entry});
}
Geof, I beat you to it :).
Comitted Thanks!
--
END
------------------------------------------------------------
What doesn't kill us can only make us stronger.
Nothing is impossible.
Philip M. Gollucci ([EMAIL PROTECTED]) 301.254.5198
Consultant / http://p6m7g8.net/Resume/
Senior Developer / Liquidity Services, Inc.
http://www.liquidityservicesinc.com
http://www.liquidation.com
http://www.uksurplus.com
http://www.govliquidation.com
http://www.gowholesale.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
