X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=doclib%2Fdot-munge.pl;h=263b44e24a328803aad6997ba4e16ba9e97104d9;hb=fe593b5092295224c1f4334bcc97801d2cf41b89;hp=6214e48b30fefde51923041483e43855f718826c;hpb=a43bafc12216ec8ca3457ab3571917ae5612ec94;p=senf.git diff --git a/doclib/dot-munge.pl b/doclib/dot-munge.pl index 6214e48..263b44e 100755 --- a/doclib/dot-munge.pl +++ b/doclib/dot-munge.pl @@ -20,15 +20,15 @@ if (/label=\"([^"]{48,})\"/) { #"])){ # 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"; }