Don't use keys on a hashref

Older Perls don't handle this properly, and it'd be nice to be able to
use this on older versions of OpenBSD.

diff --git a/devtree/devtree b/devtree/devtree
index adadaae84ed7d5dbdeb9a620bc9a31a82020c550..ed094b72ce8e9d4e3b5a8004ecba57d22b32f0f7 100755 (executable)
--- 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 = $_;