X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=304b9c6830b97f77bde4767cc64ad954c2a310e1;hb=d235b0d777f1a90c65d5dcf8cd6adaeb9f2b7e99;hp=3f264846bd74ff4210b9276e7c6ce7e4e542ab44;hpb=d74590246854a9aa8783b2548196153f4ad7c985;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index 3f264846..304b9c68 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -224,12 +224,14 @@ sub config
 					my $c;
 					if ($uref) {
 						$c = $uref->user_call;
-					} else {
+					}
+					else {
 						$c = "$ucall?";
 					}
 					if ((length $line) + (length $c) + 1 < $width) {
 						$line .= $c . ' ';
-					} else {
+					}
+					else {
 						$line =~ s/\s+$//;
 						push @out, $line;
 						$line = ' ' x ($level*2) . "$pcall->$c ";
@@ -240,7 +242,8 @@ sub config
 		$line =~ s/->$//g;
 		$line =~ s/\s+$//;
 		push @out, $line if length $line;
-	} else {
+	}
+	else {
 		# recursion detector
 		if ((DXChannel::get($call) && $level > 1) || $seen->{$call} || $level > $maxlevel) {
 			return @out;