X-Git-Url: http://git.steven-mcdonald.id.au/?p=openbsd-goodies.git;a=blobdiff_plain;f=devtree%2Fdevtree;fp=devtree%2Fdevtree;h=ed094b72ce8e9d4e3b5a8004ecba57d22b32f0f7;hp=adadaae84ed7d5dbdeb9a620bc9a31a82020c550;hb=a76f0d2fa04a686536c2d937c2b3f16b3aec4caa;hpb=bb9c57170922780f241716aa90327874e3efdf31

diff --git a/devtree/devtree b/devtree/devtree
index adadaae..ed094b7 100755
--- a/devtree/devtree
+++ b/devtree/devtree
@@ -47,7 +47,7 @@ sub print_tree {
 	my $prev_indent = shift || "";
 	my $indent      = $prev_indent . "  |";
 	my $count       = 0;
-	my @keys        = keys $tree;
+	my @keys        = keys %$tree;
 
 	for (sort @keys) {
 		my $name = $_;