X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=doclib%2Fdot-munge.pl;h=263b44e24a328803aad6997ba4e16ba9e97104d9;hb=25976ed67c66d30811fa0a01043e50347e9d1e69;hp=dd0d8f9b8dc431324fdd0891cbec9de9158ff29f;hpb=409385419f05893d7d226931796124a70c2f6c63;p=senf.git

diff --git a/doclib/dot-munge.pl b/doclib/dot-munge.pl
index dd0d8f9..263b44e 100755
--- a/doclib/dot-munge.pl
+++ b/doclib/dot-munge.pl
@@ -5,7 +5,7 @@ s/fontsize=10/fontsize=8/g;
 s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
 
 # Wrap long labels (templates and pathnames)
-if (/label=\"([^"]*)\"/) {                                  #"])){ # To make emacs happy ...
+if (/label=\"([^"]{48,})\"/) {                              #"])){ # To make emacs happy ...
     $pre=$`; 
     $post=$';                                               #';    # To make emacs happy ...
     $label=$1;
@@ -20,15 +20,15 @@ if (/label=\"([^"]*)\"/) {                                  #"])){ # To make ema
 
     # If at least one break is in there ...
     if ($label=~/\\r/) {
-	# If it's a pathname, make all but the last line flush left
-	# Otherwise only make first line flush left
-	if ($label=~m{/}) {
-	    $label=~s/\\r(\\ )*/\\ \\ \\ \\ \\ \\ \\ \\ \\l/g;
-	    # Re-add blanks before last line
-	    $label=~s/^.*\\l/$&\\ \\ \\ \\ \\ \\ \\ \\ /;
-	} else {
-	    $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
-	}
+    # If it's a pathname, make all but the last line flush left
+    # Otherwise only make first line flush left
+    if ($label=~m{/}) {
+        $label=~s/\\r(\\ )*/\\ \\ \\ \\ \\ \\ \\ \\ \\l/g;
+        # Re-add blanks before last line
+        $label=~s/^.*\\l/$&\\ \\ \\ \\ \\ \\ \\ \\ /;
+    } else {
+        $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
+    }
         # Make last line flush right
         $label.="\\r";
     }