Changeset 12813

Timestamp:

10/20/11 15:21:32 (19 months ago)

Author:

OlivierRaginel

Message:

Item11189: Finally, perltidy

File:

• trunk/core/lib/Foswiki/Render.pm (modified) (4 diffs)

trunk/core/lib/Foswiki/Render.pm

@@ -325 +325 @@
         elsif ( $lines->[$i] =~ s/$TRMARK=(["'])(.*?)\1//i ) {
             if ($2) {
-                # In head or foot
+
+                # In head or foot
                 if ($inFoot) {
-                    #print STDERR "FOOT: $lines->[$i]\n";
+
+                    #print STDERR "FOOT: $lines->[$i]\n";
                     $footLines++;
                 }
                 else {
-                    #print STDERR "HEAD: $lines->[$i]\n";
+
+                    #print STDERR "HEAD: $lines->[$i]\n";
                     $headLines++;
                 }
             }
             else {
-                # In body
-                #print STDERR "BODY: $lines->[$i]\n";
+
+                # In body
+                #print STDERR "BODY: $lines->[$i]\n";
                 $inFoot    = 0;
                 $headLines = 0;
@@ -344 +348 @@
         $i--;
     }
-    $lines->[$i++] = CGI::start_table(
+    $lines->[ $i++ ] = CGI::start_table(
         {
             class       => 'foswikiTable',
@@ -354 +358 @@
 
     if ($headLines) {
-        splice( @$lines, $i++, 0, '<thead>' );
+        splice( @$lines, $i++,            0, '<thead>' );
         splice( @$lines, $i + $headLines, 0, '</thead>' );
-        $i += $headLines + 1;
+        $i += $headLines + 1;
     }
 
     if ($footLines) {
-        # Extract the foot and stick it in the table after the head (if any)
-        # WRC says browsers prefer this
+
+        # Extract the foot and stick it in the table after the head (if any)
+        # WRC says browsers prefer this
         my $firstFoot = scalar(@$lines) - $footLines;
         my @foot = splice( @$lines, $firstFoot, $footLines );
-        unshift(@foot, '<tfoot>');
-        push( @foot, '</tfoot>' );
-        splice( @$lines, $i, 0, @foot );
-        $i += scalar(@foot);
+        unshift( @foot, '<tfoot>' );
+        push( @foot, '</tfoot>' );
+        splice( @$lines, $i, 0, @foot );
+        $i += scalar(@foot);
     }
     splice( @$lines, $i, 0, '<tbody>' );
@@ -801 +806 @@
         }
         else {
-            $text                 = _escapeAutoLinks($text);
+            $text = _escapeAutoLinks($text);
         }
     }