--- Devel-FindRef/FindRef.pm	2008/07/11 17:59:19	1.11
+++ Devel-FindRef/FindRef.pm	2008/07/11 21:09:30	1.12
@@ -120,31 +120,28 @@
          my (@about) = find $$refref;
          if (@about) {
             for my $about (@about) {
-               $buf .= ("   ") x $indent;
-               $buf .= $about->[0];
+               $buf .= "$indent" . (@about > 1 ? "+- " : "   ") . $about->[0];
                if (@$about > 1) {
                   if ($seen{$about->[1]+0}++) {
                      $buf .= " $about->[1], which was seen before.\n";
                   } else {
                      $buf .= " $about->[1], which is\n";
-                     $track->(\$about->[1], $depth - 1, $indent + 1);
+                     $track->(\$about->[1], $depth - 1, $about == $about[-1] ? "$indent   " : "$indent|  ");
                   }
                } else {
                   $buf .= ".\n";
                }
             }
          } else {
-            $buf .= ("   ") x $indent;
-            $buf .= "not found anywhere I looked :(\n";
+            $buf .= "$indent   not found anywhere I looked :(\n";
          }
       } else {
-         $buf .= ("   ") x $indent;
-         $buf .= "not referenced within the search depth.\n";
+         $buf .= "$indent   not referenced within the search depth.\n";
       }
    };
 
    $buf .= "$ref is\n";
-   $track->(\$ref, $depth || 10, 1);
+   $track->(\$ref, $depth || $ENV{PERL_DEVEL_FINDREF_DEPTH} || 10, "");
    $buf
 }
 
@@ -178,6 +175,12 @@
 
 =back
 
+=head1 ENVIRONMENT VARIABLES
+
+You can set the environment variable C<PERL_DEVEL_FINDREF_DEPTH> to an
+integer to override the default depth in C<track>. If a call explicitly
+specified a depth it is not overridden.
+
 =head1 AUTHOR
 
 Marc Lehmann <pcg@goof.com>.