Socket/Protocols/INet: Updated INet4SocketAddress to use INet4Address

[senf.git] / doclib / dot-munge.pl

diff --git a/doclib/dot-munge.pl b/doclib/dot-munge.pl
index d11a556..550a3a2 100755 (executable)
--- a/doclib/dot-munge.pl
+++ b/doclib/dot-munge.pl
@@ -4,9 +4,9 @@
 s/fontsize=10/fontsize=8/g; 
 
 # Wrap long labels (templates)
-if (/label=\"([^"]*)\"/) {                                 #"])){ # To make emacs happy ...
+if (/label=\"([^"]*)\"/) {                                  #"])){ # To make emacs happy ...
     $pre=$`; 
-    $post=$';                                              #'     # To make emacs happy ...
+    $post=$';                                               #';    # To make emacs happy ...
     $label=$1;
 
     # Break at each komma
@@ -14,15 +14,15 @@ if (/label=\"([^"]*)\"/) {                              #"])){ # To make emacs happy ...
 
     # If more than one '<' is in the label, break after each '<'
     if (($label=~tr/</</)>1) { 
-       $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
+        $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
     }
 
     # If at least one break is in there ...
     if ($label=~/\\r/) {
-       # Make last line flush right
-       $label.="\\r";
-       # and first line flush left
-       $label=~s/\\r/\\l/;
+        # Make last line flush right
+        $label.="\\r";
+        # and first line flush left
+        $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
     }
     print "${pre}label=\"${label}\"${post}";
 } else {