--- deliantra/server/utils/regiontree	2007/01/24 22:46:02	1.2
+++ deliantra/server/utils/regiontree	2007/01/24 22:46:38	1.3
@@ -1,6 +1,6 @@
 #!/opt/perl/bin/perl
 
-# usage: regiontree < maps/regions
+# usage: regiontree maps/regions
 
 my %regions;
 
@@ -14,7 +14,7 @@
 
 
 my $curreg = '';
-while (<STDIN>) {
+while (<>) {
    if (/^region\s*(\S+)\s*$/) {
       $curreg = $1;
       $regions{$curreg} = {};