Don't use keys on a hashref master
authorSteven McDonald <steven@steven-mcdonald.id.au>
Sat, 8 Nov 2014 12:21:17 +0000 (23:21 +1100)
committerSteven McDonald <steven@steven-mcdonald.id.au>
Sat, 8 Nov 2014 12:21:17 +0000 (23:21 +1100)
Older Perls don't handle this properly, and it'd be nice to be able to
use this on older versions of OpenBSD.

devtree/devtree

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