X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=site_scons%2Flib%2Fdot-munge.pl;h=5c60e419bed99824cffc0e5728641c2b315b9216;hb=4101c2b818ec67e7469ebb44f030eed2185c4ab0;hp=263b44e24a328803aad6997ba4e16ba9e97104d9;hpb=1f270d560ae6f4b70bbca1e671c29aaf55bc8922;p=senf.git

diff --git a/site_scons/lib/dot-munge.pl b/site_scons/lib/dot-munge.pl
index 263b44e..5c60e41 100755
--- a/site_scons/lib/dot-munge.pl
+++ b/site_scons/lib/dot-munge.pl
@@ -1,20 +1,20 @@
 #!/usr/bin/perl -i -n
 
 # Reduce fontsize and change font
-s/fontsize=10/fontsize=8/g; 
+s/fontsize=10/fontsize=8/g;
 s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
 
 # Wrap long labels (templates and pathnames)
-if (/label=\"([^"]{48,})\"/) {                              #"])){ # To make emacs happy ...
-    $pre=$`; 
+if (/label=\"([^"]{24,})\"/) {                              #"])){ # To make emacs happy ...
+    $pre=$`;
     $post=$';                                               #';    # To make emacs happy ...
     $label=$1;
 
     # Break at each komma or /
-    $label=~s{[,/]}{$&\\r\\ \\ \\ \\ \\ \\ \\ \\ }g; 
+    $label=~s{[,/]}{$&\\r\\ \\ \\ \\ \\ \\ \\ \\ }g;
 
     # If more than one '<' is in the label, break after each '<'
-    if (($label=~tr/</</)>1) { 
+    if (($label=~tr/</</)>1) {
         $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
     }
 
@@ -33,6 +33,6 @@ if (/label=\"([^"]{48,})\"/) {                              #"])){ # To make ema
         $label.="\\r";
     }
     print "${pre}label=\"${label}\"${post}";
-} else { 
+} else {
     print;
 }