From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Fri, 28 Sep 2012 07:30:53 +0000 (+0900)
Subject: Add "->" to link names for --text.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=65b2cf7d71e0181b4929c02eb7430c3086ae60eb;p=p5sagit%2FDevel-Size.git

Add "->" to link names for --text.
---

diff --git a/memnodes.pl b/memnodes.pl
index bd3d1b4..16f7e48 100755
--- a/memnodes.pl
+++ b/memnodes.pl
@@ -205,7 +205,9 @@ while (<>) {
     my ($type, $id, $val, $name, $extra) = split / /, $_, 5;
 
     if ($type =~ s/^-//) {     # Node type ($val is depth)
-        printf "%s%s %s [#%d @%d]\n", $indent x $val, $name, $extra||'', $id, $val
+        printf "%s%s%s %s [#%d @%d]\n", $indent x $val, $name,
+                ($type == NPtype_LINK) ? "->" : "",
+                $extra||'', $id, $val
             if $opt_text;
         while ($val < @stack) {
             leave_node(my $x = pop @stack);